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Welcome to the In ternsLionel Apple 
Core* Enclosed is the first mailing to 
member user groups from sour Regional 
Directors * 

I am sour representative to the IAC 
and I can be reached at the above 
address or phone number if you have any 
Questions about the organisation * 
Upcoming mailings will include such 
things as APPLE AP-NOTES? technical 
hints from user groups? software from 
the APPLE user contributed software bank 
and much more* 

One of the major purposes of the 
IAC is to provide 3n interface and an 
interaction between the APPLE user 
groups and APPLE COMPUTER INC* A formal 
organisation such as the IAC is the best 
W3« to accomplish this relationship♦ 


If you know of any other APPLE user 
groups in your area? please pass on the 
existence of the IAC and have them 
contact me* Ca blank application is 
enclosed for this purpose)* We would 
like to see the IAC representing as many 
APPLE user groups as possible* 
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Dear Member Clubs: 

On March 13 representatives of 60 member clubs met in San 
Francisco to formally initiate the International Apple Core. 
Directors were elected, lengthy discussions were held, and 
policies were worked out. Directors and officers met for the 
following two days arranging quite a few important details. You 
will recieve a detailed report of the proceedings as soon as 
possible. In the meantime this brief summary should answer many 
of your more common questions. 

The International Apple Core (IAC) will be a non-profit 
organization dedicated to the exchange of information among 
Apple Computer users. This will be broadly interpreted to 
include technical information, software, programming 
information, and anything else which can benefit Apple users 
throughout the world. In addition the IAC will provide for 
communications between members and the various product 
manufacturers. Specific areas of IAC activity will include 
publication of the "Orchard", maintenance of a public-domain 
software library, support of special interest groups, support, of 
software and hardware standards, technical support, promulgation 
of ethics, and organization of annual Apple - faires. 

Being an international organization, the IAC seeks to represent 
Apple users everywhere. Accordingly, the provisional 
constitution and by-laws adopted by the representatives in San 
Francisco allow for two directors from each of four regions in 
the United States (see map). In addition each continent will 
have one director. Since international directors may have 
difficulty attending conferences and meetings in the U.S., they 
may designate a stateside director to communicate with them and 
act as their proxy. Directors serve two - year terms. However 
in the first year one from each region serves a one - year term 
to allow staggered elections. Term length was assigned by coin 
toss. All directors will be elected by the member clubs in 
their areas, on a one-club, one-vote basis. Each region's 
director's will be contacting members to arrange meetings and a 
representative method of voting. 

The IAC does not intend to have individual memberships. Only 
non-profit Apple user groups may be members. Educational 
institutions and other interested non-profit organizations may 
become associate members. They will be entitled to all the free 
printed information the IAC provides its members, but can not 
vote for directors. Commercial enterprises may become sponsors, 
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entitled to information and participation in standards 
establishment. They, too, would be non-voting, but would 
recieve preferential advertising treatment in IAC publications. 
Dues for members and sponsors will be $50 and $200, 
respectively. They will be collected every January First. 
Associate members pay no dues. 

Officers will be a President, Vice - President, Secretary, and 
Treasurer. To avoid concentration of power, the bylaws provide 
that a director may not also be an officer. Officers are 
appointed by the Board. 

We currently are polishing up the latest draft of the bylaws and 
constitution. After they've been cleared by attorneys every 
member will recieve a copy for comment. After a suitable period 
a final version will be prepared, subjected to approval, and 
submitted to the State of California for incorporation. 

The "Apple Orchard" will be the IAC's official magazine. The 
Board resolved to make the "Orchard" the definitive publication 
on the Apple Computer. To this end, Val Golding has been 
retained as Editor. He will quit his present job to take up 
editing full-time. The Board is also seeking a professional 
publishing house to handle subscriptions, printing, and mailing. 
The next issue will be published September First, with 
subsequent issues following quarterly. The publication rate 
should go up to monthly as we gain experience. Articles should 
be submitted to Val Golding, and should clearly indicate that 
they're for the "Orchard." Preliminary submission deadline for 
the first issue is July First. The "Apple Orchard" will replace 
future editions of "Contact." Unlike "Contact," the "Orchard" 
will be available either by subscription or by sale through 
clubs or stores. Apple Computer Company intends to purchase 
some "Orchards" from the IAC. One copy will be sent to each 
newly - registered Apple owner to tell them about user groups. 

A number of committees and special interest groups were 
established to deal with specific subjects. A list of these 
committees, their chairmen, and their functions is attatched. 
You can contact any of them if you have interest. The IAC will 
try to establish a hot-line for technical and software problems. 
Until permanant arrangements can be made, you will have to 
continue using current lines provided by various clubs and Apple 
Computer, Inc. Neil Lipson's software committee will be 
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collecting, documenting, and distributing a diskette a month to 
the member clubs. These will contain public domain software and 
will be distributed free of charge. The IAC will also 
distribute to members application notes from Apple Computer and 
other suppliers as they are made available to us. 

The IAC's first letter to clubs indicated that the "Source" 
telecommunications network would be made available. For a 

variety of reasons that did not work out as we had hoped. We 
are currently negotiating with the "Source", "Micronet", and 
others to make some form of telecommunications possible. You 
will be notified as soon as something is arranged. 

Obviously a large number of questions are still unanswered. I 

will be trying to get all the information I can to you in the 
near future through various communications. In the meantime any 
of the officers or directors will be more than happy to answer 
your inquiries. Please bear with us over the coming months as 
we put the IAC together and shake out the bugs. Most 

importantly, please communicate with us if you have any 
suggestions about how something should be done, or could be done 
better. This is your club; only you can make it work. 


Regards, 



Joe Budge"^ 

Secretary, 

International Apple Core 


jb:JHB 

4 Enclosures 
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DIRECTORS 
MARCH 13, I98O 


One-Year Terms * 

1 - WEST 

Joe Alinsky 

22240 Wyandotte 

Canoga Park, Calif. 91303 

(213)-703-1894 


2 - NORTH 

Jon R. Lawrence 
15487 Minock 
Detroit, Mich. 48223 

(313)-53^-2433 

3 - SOUTH 

Jerry Vitt 

6906 Waggoner PI, 

Dallas •, Tx. 75230 

(2l4)-369-766o 

4 - EAST 


Two-Year Terms 1 


Fred Wilkinson 
P.0, Box 40031 
San Francisco, Calif. 94110 

(415)-585-224o 


Harlan G. Felt 
359 Lawton Rd. 
Riverside, Ill. 60546 

(312)-447-6267 


Scott Knaster 

5425 E. Kentucky Ave. 

Denver, Colo. 80222 

(303)-355-2379 


Bernie Urban 

6205 Walholding Rd. 

Washington, D.C, 20016 

(301)-229“3458 


Tony Cerreta 

55“A Locust Ave., #4G 

New Rochelle, N.Y. 10801 

(91^)-636-34l7 


INTERNATIONAL 


7 - AUSTRALIA 


8 - EUROPE 


Neil Bennett 
55 Clarance St. 

Sydney, Australia 2000 

612-293753 
9 - NORTH AMERICA 


Wolfgang Dederichs 
Auf Drenhausen 2 
4320 Hattingen 
West Germany 

02324/67412 


Auby Mandell 
409 Queen St. W. 

Toronto, Ontario 
Canada M5V2A5 

(4l6)-868-l315 
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OFFICERS 
MARCH 13. 1980 


PRESIDENT 

Ken Silverman 
3673 Bassett Ct. 

South San Francisco, Calif. 94080 
(M5)-878-9171 


VICE-PRESIDENT > 

Michael We instock 
64 Pinedale Rd. 
Hauppauge, L.I. 

New York 117^7 

(516)-360-0988 


TREASURER ! 

Dave Gordon 
19273 Kenya St. 
Northridge, Calif. 91324 

(213)-384-0579 


SECRETARY ! 

Joe Budge 

2507 Elderwood Ln. 
Burlington, N.C. 27215 

(919)-228-6055 
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COMMITTEESi 

The following are the chairmen or organizers of the various 
IAC committees and special interest groups. They are just forming 
and need your participation. Members of member clubs, sponsors, 
and associate members are welcome. If you have any interest 
contact the chairmen directly or through the. IAC. They can tell 
you exactly what the committee is up to. If you wi sh to form or 
oarticipate in a special interest group not listed here, let the 
IAC know so that a SIG can be set up. 

Orchard Publication! Val Golding, 6?08 39th Ave. S.W,, Seattle, 
Wash. 9^136. (206)-932-6588 

IAC Software! Neil Lipson, 29 S. New Ardmore Ave., Broomall, Pa., 
19008 (215)-356-6l83 

New Club Assistancei Dick Sedgewick, 100 Horne St., Dover, N.H., 
03820 (603)-742-3703 

Constitution & Bylaws 1 Ken Silverman, c/o International Apple 
Core (4l5)-878-9171 

Telecommunications! Craig Vaughn, 2633 E. 28th Ave. STE 622 , 

Signal Hill, Calif." 908 O 6 (2l3)-595-6858 TCA 099 

Standards! Mark Robbins, 2726 S. Moline Ct., Aurora, Co. 80014 
(303)-755-644 o, (303)-696-0200 

Newsletter Librarian! Major Terry N. Taylor, 12319 E. Bates Circle, 
Aurora, Co., 80014 (303)-750-5813 

Newsletter Exchange Coordinator! David Alpert, 880 Mellody, 

Lake Forest,"ill. (312)-295~6078 

Education SIGi Ted Perry, 5848 Riddio, Citrus Hts., Ca. 95610 
(9l6)-96l-7776 

Handicapped SIGi Bernie Urban, 6205 Walholding Rd. , Washington, 
D.C., 20016 (301)-229-3458 

Legal SIGi Butch Clayton, P.O. Box 70278 , Charleston Heights, 

S.C., 29405 (803)-884-5370 (803)-554-9171 

Ham Radio SIGi James E. Hassler, 129 Park Ave,, Orchard Valley, 
Cheyenne, Wy. 82001 (307>-632-4934, WB7TRQ on 14.329Mhz 
Sunday Nights at 5, PST. 
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APPLICATION FOR MEMBERSHIP 

Name of Organizationi_ 

Class of Membership! __ 

Mailing Address: 

Stree t:_____ 

City:__State i_Zip:_ 

Country:___ 

(If the above is a post office box, please supply a street address 
below where parcels may be sent:) 


Officers: 


NAME 


PHONE 


President: __ 

Treasurer: ___ 

Editor: . . 

Other: _*__ 

Terms Expire: _ Copies of "The Apple Orchard" desired 

Number of Members:_ at $ 1.00 each: _ 

Total Remittance Enclosed: _ 

- Full membership is available only to Apple User’s Croups. A $50.00 
initiation fee must accompany this form. Only full members may 
order the "Orchard" with this form. 

- Applicants for Associate Membership are asked to provide evidence that 
they are a non-profit institution. There is no membership fee. 

- Sponsors: Please indicate the name, position, and telephone number 
of'the person in your organization responsible for liason with 

the IAC. The Sponsoring Membership fee is $200,00 
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Dear IAC Member Club; 

At the first annual meeting of the IAC many subjects were discussed like 
special interest groups, by-laws, and information transfer. A full report 
should be forth comming dealing with the meeting* 

I would like to inform you of the outcome of certian subjects in which there 
has been a great deal of concern - those subjects being 1) our publication M The 
Apple Orchard 11 , 2) Club Dues, 3) The Source, and 4) Software. 

1) 11 THE APPLE ORCHARD’ 1 - It was decided, at this time, to have a quarterly 
issue starting in September of 1980 . If it is accepted and is a success it 
could be published every other month. The cost on the news stand will be 
$3.50. The cost to member clubs on a bulk purchase will be $2.00 a copy. If 
an individual subscribes it will be $10 for four issues - or $2.50 a copy. We 
recommend individual subscriptions to speed delivery to the end Apple user. If 
mailed to a club it would take time and money from that club for 
re-distribution. The method in which subscriptions will be handled is 
forthcoming - we are in the process of signing agreements with the publishers. 

2) CLUB DUES - The Board of Directors decided that each member club will pay an 
annual dues of $50. This will start in January of 1981. A new club will still 
pay the $50 initiation fee in addtion to the annual dues. The membership size 
of a club will have no bearing on the dues cost. It is basically a token 
amount so that a club shows an interest in the IAC. The IAC will most likely 
send each club a free software disk each month - this alone makes up the $50 
dues. 

3) THE SOURCE - Originally we informed some of our member clubs that a free 
’’Source” account would be forthcoming so that there would be open 
communications between clubs and the IAC. The ’’Source” has and still is going 
thru some major changes. We are still in contact with them and are in the 
closing stages of an agreement. When the agreement is signed our member clubs 
will be informed. The following is what we hope will come out of the 
negotiations: 

a) IAC Source mail box for clubs to leave messages & 
questions. 

b) Individual accounts for the officers and directors to 
conduct IAC business. 

c) A club account for each member club. The account fee 
($100) would be FREE but there would be monthly billing for 
usage at Source rates. One member would have to be 
responsible for the club account by putting the billing on 
his/her VISA or Master Charge card. Who or how that club 
account is used will be up to the club and the individual 
responsible. In addtion the necessary software to use the 
Source with the Apple will be supplied FREE. All club 
account numbers will be published in the Orchard. 

PO.BOX 975 DALY CITY CALIFORNIA 94017 
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4) SOFTWARE - It was agreed that software being supplied by the IAC to 
member clubs will be FREE, even the disk it is supplied on will be FREE. 
We hope to give a "Disk a Month" to each member club. How a member club 
gives it to its membership will be up to them. The programs on each disk 
can not be charged for but a club my charge for the "medium". 
Distribution will be by the Software Committee. 


NOTE: At the meeting in March two disks were given to each Director to be 
given to the clubs in their area. One disk had some new utilities and the 
other was for owners of an Apple II Plus, which contains a good 
mini-assembler and it has a version of INTEGER Basic but it won't work in 
all program cases. 


I hope this will answer some of your more immediate questions but if you 
still are concerned on any subject please don't hesitate to call me in the 
evening. I can be reached on 415+878—9171 between 5:30 and 10:30PM 
Pacific time. 


Thank You, 



ent ' 
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TO: Member Clubs 

Sponsors 
Associates 


Dear Members: 


Enclosed you will find the complete minutes of the International 
Apple Core's meetings to date. The first meeting was held in San 
Francisco last October. This was the start-up meeting: all the 
attendees were flown in by Apple Computer and asked to form an 
International Users Organization. After the meeting the various 
officers, directors, and chairmen went to work contacting clubs, 
arranging publication of The Orchard, and drawing up the outline of 
the IAC. The next meeting was held in March, when the representatives 
of member clubs convened. The first regular directors and operating 
officers were elected at this meeting, and most of the IAC's structure 
was worked out. Following the Annual Meeting of the clubs, the new 
Board of Directors met to begin organizing the administration and 
policies of the IAC. A second meeting was held in May to continue this 
organizational work. Most directors were then in Anaheim, California 
as guests of Apple for the unveiling of the Apple III. 


I am sure you will find the minutes of these meetings quite 
interesting and informative. Many of our new members will be learning 
the detailed history of the IAC for the first time. Older members may 
have attended some of these events, but few have attended all. There¬ 
fore, these minutes will explain many details of the IAC which haven’t 
yet been generally distributed. 

As always, please feel free to contact your directors or officers 
if you have any questions about this material. 


Regards, 



Joseph H. Budge 
Secretary 

International Apple Core 
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BOARD OF DIRECTORS MEETING 
MINUTES 

Submitted by Ken Silverman - Secretary 

DATE: October 27, 1979 

PLACE: Ramada Inn, San Francisco 

ATTENDIES: See attached list 

The meeting was opened at 9 a.m. by Val Golding of the Apple Puget Sound 
club. Everyone introduced themselves (see list). Opening remarks 
included the reason for the meeting - i.e. the formation of an Inter¬ 
national Apple users group. Interim officers were appointed so that 
the business of forming an organization could be started. The following 
were the results of the appointments: 

President - Val Golding 
Vice President - Neil Lipson 
Secretary - Ken Silverman 
Treasurer - Dave Gordon 

A name for the organization was presented and accepted as the "INTERNATIONAL 
APPLE CORE". 

During the opening remarks and appointments two representatives of the 
Apple Computer Company, Phil Roybal & Jim Hoyt, helped in organization and 
direction. The Apple Corp. was instrumental in calling this group together, 
in fact, they paid to fly the representatives to San Francisco, so that 
this type of organization could be formed.. (NOTE: It was talked about 
and confirmed several times during the conference that Apple would help 
only in getting the group started. The organization is to be completely 
independent of all manufacturers and software companies and is responsible 
only to its user membership). 

Many items were presented by attendees and a list of subjects to be 
covered were put on display paper by Phil Roybal so we could detail them 
as needed. Items to be covered: 

I - THIS GROUP 

1- Today 

2- March West Coast Computer Faire 

3- Task Forces 

4- Local user group problems . 

II - USER GROUP OBJECTIVES 

1- Funding 

2- Communications 

3- Special interest groups 

4- How to form a user group library 

5- Bylaws and purpose 

6- Local/National user interaction . 
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Choice of Ad space in publication 

New product feedback 

Application notes 

Member of standards committee 

Publication subscription 

Right of input 

Right of response 

A vote on the standards committee 

A Sponsor would have no vote on the Board of Directors in the organization. 

The associate membership would be for organizations like schools (not non¬ 
profit users groups). They would have no fee and no vote but would receive 
a copy of the publication and other information whenever possible. 

The SPECIAL INTEREST GROUPS topic was discussed with the end result as we 
would support all of them. This would be more on a local level because 
there are so many of them. A STANDARDS & CONVENTIONS Committee will be 
formed during the March meeting to be held in 1980. The formation of a 
committee to put a CLUB KIT together was completed to be chaired by Dick 
Sedgewick. This committee will compile information on how to start a 
club, a library, set up communications with the International group and 
much more. 

At this time one of the Task Forces was formed. This group would put out 
a major publication to coincide with the West Coast Computer Faire and 
consist of input from all the large clubs via their editors. The publi¬ 
cation is expected to be over 100 pages long and will retail for about 
$5.00 a copy. All member clubs will get copies for their membership for 
$1.00 a copy. This issue will most likely cost over $60,000, over 
50,000 copies will be made, and we hope to bring in $100,000 (see attached 
sheet on newsletter funding). Apple Corp. will also mail a copy to 
everyone on their Apple owner list (they will pay for the copies). Val 
Golding, editor of Call Apple will head this group (see list for other 
members of this committee). All copy for this issue must be in Val's hands 
by December 1st. At this time Larry Wise, of Information Unlimited, who 
was sitting in on the meeting offered copies of the word processor 
"EasyWriter" to each editor on the committee. This was accepted and the 
board in return would like to give Information Unlimited a 1/2 page in 
the publication. Motion was made and carried. Larry thanked the board. 

A discussion of the March meeting was then taken up. It was decided to 
hold our meeting on Thursday before the Friday opening of the Faire (March 
13th). At this meeting votes would be taken on the following: 

Constitution & Bylaws 

New Officers 

Fees 

Committees 

Confirmation of the Board of Directors 

During the Faire, on Saturday, we would summarize the organization and 
have seminars (See list for Faire committee). 
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BOARD OF DIRECTORS MEETING 
MINUTES 

Submitted by Ken Silverman - Secretary 

DATE: October 28, 1979 

PLACE: Ramada Inn, San Francisco 

SECOND DAY OF CONFERENCE 

The meeting opened at 9:06 by Val Golding interim President. It was 
stated that most attendees had flights out of San Francisco early. 

The topics for today: 

I - Board of Directors: 

1 - Where to meet 

2 - How is Core to be organized 

3 - How to insure geographical distribution 

4 - Pay board member expenses 

The following is the results of discussions on how the Board Of Directors 
should be formed and who has a vote on that board: 

There will be four regions in the United States - 
North - South - East - West 
These would be divided by: 

The Mason-Dixon line in the South 
The Rockeys in the West 
The Appalachians in the East 

Each region would have two representatives, voted by the members in their 
area, who would serve on the Board of Directors. There also would be two 
representatives from outside of the United States. This gives a total of 
10 votes - these 10 directors then would elect a President of the Core and 
that person would also have a vote on the board. The President would not 
also be an area representative. This gives a total of 11 votes. The 
President and Board would then elect the rest of the officers and committee 
persons. The rest of the officers and committee persons would not have a 
vote on the board. 

The term of office for an area board member would be two years except in 
this first year to start in March 1980. In this first year one of the 
representatives from an area would serve a one year term and the other a two 
year term. This would give the organization continued continuity thru the 
years. The officers, including the President, and committee person would 
serve a one year term but is re-newable. 

If for any reason an area representative cannot attend an annual meeting 
they may vote on agenda items by proxy. 
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SPECIAL FAIRE NEWSLETTER FUNDING 


SOURCE 

COPIES 

AMOUNT 

ADs 


$24,000 

Apple Corp 

25,000 

25,000 

SF Apple Core 

1,000 

1,000 

A.P.P.L.E. 

4,000 

4,000 

Apples ause 

1,000 

1,000 

ABACUS 

300 

300 

Houston 

400 

400 

N.E.A.T. 

150 

150 

Apple Pie 

250 

250 

Michigan 

250 

250 

Phil a 

150 

150 

Stores 

15,000 

45,000 

Fai re 

3,000 

7,500 


45,5K 

$108K 
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Neil Lipson - Chairman 
Randy Hyde 
Larry Danielson 
Ed Avelar 
Kip Reiner 

Randy Hyde - Chairman 

Bernie Urban 

John Lawrence 

Mat McIntosh 

Mike Weinstock 

Val Golding 

Jim Hoyt 

Ken Silverman 

Dick Sedgewick - Chairman 
Bernie Urban 
Fred Wilkinson 
Bob Collins 
John Lawrence 
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INTERNATIONAL APPLE CORE 


ANNUAL MEETING OF THE FULL MEMBERSHIP. 
MINUTES 

Submitted by Joseph H. Budge - Secretary 
March 13, 1980 


The first Annual Meeting of the Full Membership of the International 
Apple Core, herein after referred to as the "General Meeting", was held 
at 9:00 AM on Thursday, March 13, 1980 in the San Francisco Convention 
Center in San Francisco, California, Mr. Silverman, the interim Secretary, 
was present as the presiding officer. Proceedings were videotaped by Mr. 

A1insky in lieu of a recording officer. 

ATTENDANCE: 

As the General Meeting does not constitute a deliberative assembly, 
determination of a quorum was not necessary. A list of member clubs 
represented is attached (Appendix I). 

BUSINESS: 

The interim Secretary stated that the areas of representation had 
been reapportioned by the officers to follow state lines instead of 
cutting across states. A map was displayed and approved by the assembly 
(Appendix II). Following this the Secretary showed how the interim 
Board had structured the IAC so that each area would elect Directors who 
in turn would appoint Officers (Appendix III). 

TEMPORARY ADJOURNMENT: 

At 9:30 AM the General Meeting was adjourned for one hour. During 
the temporary adjournment the Full Members caucused to elect Directors. 
Following their election the Directors met to appoint the Officers. The 
General Meeting resumed at 10:30 AM. 

INTRODUCTION OF DIRECTORS AND OFFICERS: 

The elected Directors were introduced and recognized by the assembly. 
The Directors were: 

JOE ALINSKY FRED WILKINSON 

JON LAWRENCE HARLAN FELT 

JERRY VITT SCOTT KNASTER 

BERNIE URBAN TONY CERRETA 

NEIL BENNETT WOLFGANG DEDERICHS 

The following officers were appointed to one - year terms by the Board: 
PRESIDENT: KEN SILVERMAN 
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receive printed matter free. Sponsors would be companies or individuals who 
would receive special advertising privileges as well as the normal flow of 
information from the IAC. Business of the IAC would be guided by a Board 
of Directors, of which there were 10 members. Two Directors would come 
from each region of the United States and two would come from outside the 
U.S. (Appendix III). The Directors would elect the Officers to provide 
for the daily operations of the IAC. Other provisions in the Bylaws pro¬ 
vided for amendment and referenda of the membership. It was determined / 

that a final draft of the Constitution and Bylaws was to be prepared. Apple 
Computer's legal staff had volunteered to participate in the drafts' pre¬ 
paration. When ready, the draft would be sent to all the Full Members for 
additional comments and suggested changes. After final review by the Board 
and addition of final changes, the documents would be used for incorporation 
of the IAC. Additional changes to the Bylaws would then be available under 
their amendment provisions. The entire process was expected to take about 
six months. 

A questioner from the floor asked why the West Coast wasn't receiving 
greater representation since there were more Apple computers there than 
anywhere else. The chair answered that the subject had been extensively 
debated during the first organizational meeting. The participants finally 
decided that it was important to keep any one group from dominating the IAC. 
Therefore the equal representation arrangement was agreed to. The chair 
further pointed out that the Bylaws are open to change by the Board or by 
referendum if this arrangement is too objectionable. 

Distribution of the "Orchard" was then explained. Apple Computer 
had bought 25,000 "Orchards" to send to registered owners on the "Contact" 
list. These were sent free of charge. Unfortunately Apple's mailing list 
only covered about 25% of all Apple owners. To close the gap, the IAC 
printed another 25,000 for distribution through clubs and retail outlets. 

These would be sold to old and new Apple owners alike. Beginning with the 
next issue Apple planned to send each new owner a complimentary copy of 
the "Orchard" by way of introducing the IAC. Orchards would be available 
to everyone else through subscription, through retail outlets, and through 
clubs. 

It was also explained that Apple Computer, Inc. had sent out the 
package of manuals to every new member in the IAC. These had been provided 
free. However, Apple had announced that the packages would not be provided 
after the General Meeting. The Assembly thanked Apple for the packages 
which had been sent. 

A questioner from the floor asked if "Call-A.P.P.L.E." would be merged 
into the "Orchard". Mr. Golding responded that it definitely would not. 

The editorial contents of the two publications would be entirely different. 

The IAC's dissemination of information was explained by the Chair. 

Two types of dissemination were planned. One would be the "Orchard", sub¬ 
ject to later approval by the Board. The other type of information would 
be in more specialized forms such as the distribution of software, Apnotes, 
and the like. 

At this point Major Terry Taylor, of Denver Apple Pi, asked the audience 
to tell their members to stop sending him copyrighted software. Denver 
Apple Pi maintains a large library of public domain software and an active 
exchange program. Major Taylor's request generated a discussion on public 
domain software and the IAC's role with respect to it. Mr. Lipson, Software 
Chairman, said that he hoped IAC software could be donated by member clubs 
and be derived from articles in the "Orchard." While the software was public 
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A Standards Committee was established to work on hardware and software 
standards for Apple computers and the manufacturers who provide equipment 
and software for them. 

A Newsletter Librarian was appointed to maintain a file of member club 
newsletters. In addition a Newsletter Exchange Coordinator was appointed 
to facilitate inter-club exchanges. 

Both the Software and.Kit Committees were continued. An Annual Meeting 
Committee was discussed. It was decided to leave arrangements for the next 
Annual Meeting to the Board. 

Several Special Interest Groups were established. These were for 
Education, Handicapped, and Legal uses of the Apple. 

ADJOURNMENT: 

The first Annual Meeting of the Full Membership of the International 
Apple Core was adjourned at 3:00 PM. Following Adjournment the club 
representatives present had an opportunity to caucus with their Directors 
. prior to the Board Meeting at 3:30 PM. 
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Welcome? to the International Apple 
Core* Enclosed is the? first mailing to 
member user groups from your Regional 
Directors * 

I am sour representative to the IAC 
and I can be reached at the above 
address or phone number if you have any 
Questions about the organisation* 
Upcoming mailings will include such 
things as APPLE AP—NOTES? technical 
hints from user groups? software from 
the APPLE user contributed software bank 
and much more* 

One of the major purposes of the 
IAC is to provide an interface and an 
interaction between the APPLE user 
groups and APPLE COMPUTER INC* A formal 
organization such as the IAC is the best 
W3y to accomplish this relationship* 


If you Know of any other APPLE user 
groups in your area? please pass on the 
existence of the IAC and have them 
contact me* (a blank application is 
enclosed for this purpose )♦ We would 
like to see the IAC representing as many 
APPLE user groups as possible* 
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Dear Member Clubs: 

On March 13 representatives of 60 member clubs met in San 
Francisco to formally initiate the International Apple Core. 
Directors were elected? lengthy discussions were held? and 
policies were worked out. Directors and officers met for the 
following two days arranging quite a few important details. You 
will recieve a detailed report of the proceedings as soon as 
possible. In the meantime this brief summary should answer many 
of your more common questions. 

The International Apple Core (IAC) will be a non-profit 
organization dedicated to the exchange of information among 
Apple Computer users. This will be broadly interpreted.to 
include technical information, software, programming 
information, and anything else which can benefit Apple users 
throughout the world. In addition the IAC will provide for 
communications between members and the various product 
manufacturers. Specific areas of IAC activity will include 
publication of the "Orchard", maintenance of a public-domain 
software library, support of special interest groups, support, of 
software and hardware standards, technical support, promulgation 
of ethics, and organization of annual Apple - faires. 

Being an international organization, the IAC seeks to represent 
Apple users everywhere. Accordingly, the provisional 
constitution and by-laws adopted by the representatives in San 
Francisco allow for two directors from each of four regions in 
the United States (see map). In addition each continent will 
have one director. Since international directors may have 
difficulty attending conferences and meetings in the U.S., they 
may designate a stateside director to communicate with them and 
act as their proxy. Directors serve two - year terms. However 
in the first year one from each region serves a one - year term 
to allow staggered elections. Term length was assigned by coin 
toss. All directors will be elected by the member clubs in 
their areas, on a one-club, one-vote basis. Each region's 
director's will be contacting members to arrange meetings and a 
representative method of voting. 

The IAC does not intend to have individual memberships. Only 
non-profit Apple user groups may be members. Educational 
institutions and other interested non-profit organizations may 
become associate members. They will be entitled to all the free 
printed information the IAC provides its members, but can not 
vote for directors. Commercial enterprises may become sponsors, 
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entitled to information and participation in standards 
establishment. They, too, would be non-voting, but would 
recieve preferential advertising treatment in IAC publications. 
Dues for members and sponsors will be $50 and $200, 
respectively. They will be collected every January First. 
Associate members pay no dues. 

Officers will be a President, Vice - President, Secretary, and 
Treasurer. To avoid concentration of power, the bylaws provide 
that a director may not also be an officer. Officers are 
appointed by the Board. 

We currently are polishing up the latest draft of the bylaws and 
constitution. After they've been cleared by attorneys every 
member will recieve a copy for comment. After a suitable period 
a final version will be prepared, subjected to approval, and 
submitted to the State of California for incorporation. 

The "Apple Orchard" will be the IAC's official magazine. The 
Board resolved to make the "Orchard" the definitive publication 
on the Apple Computer. To this end, Val Golding has been 
retained as Editor. He will quit his present job to take up 
editing full-time. The Board is also seeking a professional 
publishing house to handle subscriptions, printing, and mailing. 
The next issue will be published September First, with 
subsequent issues following quarterly. The publication rate 
should go up to monthly as we gain experience. Articles should 
be submitted to Val Golding, and should clearly indicate that 
they're for the "Orchard." Preliminary submission deadline for 
the first issue is July First. The "Apple Orchard" will replace 
future editions of "Contact." Unlike "Contact," the "Orchard" 
will be available either by subscription or by sale through 
clubs or stores. Apple Computer Company intends to purchase 
some "Orchards" from the IAC. One copy will be sent to each 
newly - registered Apple owner to tell them about user groups. 

A number of committees and special interest groups were 
established to deal with specific subjects. A list of these 
committees, their chairmen, and their functions is attatched. 
You can contact any of them if you have interest. The IAC will 
try to establish a hot-line for technical and software problems. 
Until permanant arrangements can be made, you will have to 
continue using current lines provided by various clubs and Apple 
Computer, Inc. Neil Lipson's software committee will be 
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collecting, documenting, and distributing a diskette a month to 
the member clubs. These will contain public domain software and 
will be distributed free of charge. The IAC will also 
distribute to members application notes from Apple Computer and 
other suppliers as they are made available to us. 

The IAC's first letter to clubs indicated that the "Source" 
telecommunications network would be made available. For a 

variety of reasons that did not work out as we had hoped. We 
are currently negotiating with the "Source", "Micronet", and 
others to make some form of telecommunications possible. You 
will be notified as soon as something is arranged. 

Obviously a large number of questions are still unanswered. I 

will be trying to get all the information I can to you in the 
near future through various communications. In the meantime any 
of the officers or directors will be more than happy to answer 
your inquiries. Please bear with us over the coming months as 
we put the IAC together and shake out the bugs. Most 

importantly, please communicate with us if you have any 
suggestions about how something should be done, or could be done 
better. This is your club; only you can make it work. 

Regards, 

•''Joe Budger 
Secretary, 

International Apple Core 

j b:JHB 

4 Enclosures 
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DIRECTORS 
MARCH 13, I960 


One-Year Terms » 

1 - WEST 

Joe Alinsky 

22240 Wyandotte 

Canoga Park, Calif. 91303 

(213)-703-1894 


2 - NORTH 

Jon R. Lawrence 
15487 Minock 
Detroit, Mich. 48223 

(313)-53^-2433 

3 - SOUTH 

Jerry Vitt 

6906 Waggoner PI. 

Dallas, Tx. 75230 

(2l4)-369-7660 

4 - EAST 


Two-Year Terms 1 


Fred Wilkinson 
P.0. Box 40031 
San Francisco, Calif. 94110 

(4l5)-585-2240 


Harlan G. Felt 
359 Lawton Rd. 
Riverside, Ill. 60546 

(312)-447-6267 


Scott Knaster 

5425 E. Kentucky Ave. 

Denver, Colo. 80222 

(303)-355-2379 


Bernie Urban 

6205 Walholding Rd. 

Washington, D.C. 20016 

(301)-229-3458 


Tony Cerreta 

55“A Locust Ave., #4G 

New Rochelle, N.Y. 10801 

(9l4)-636-34l7 


INTERNATIONAL 


7 - AUSTRALIA 


8 - EUROPE 


Neil Bennett 
55 Clarance St. 

Sydney, Australia 2000 

612-293753 

9 - NORTH AMERICA 


Wolfgang Dederichs 
Auf Drenhausen 2 
4320 Hattingen 
West Germany 

02324/67412 


Auby Mandell 
409 Queen St. W. 
Toronto, Ontario 
Canada M5V2A5 


(4l6)-868-1315 
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OFFI CERS 

MARCH 13, 1980 


PRESIDENT ! 

Ken Silverman 
3673 Bassett Ct. 

South San Francisco, Calif. 94080 

(4l5)-878-9171 


VICE-PRESIDENT ! 

Michael Weinstock 
64 Pinedale Rd. 
Hauppauge, L.I. 

New York 117^7 

(5l6)-360-0988 


TREASURER ! 

Dave Gordon 
19273 Kenya St. 
Northridge, Calif. 91324 

(213)-384-0579 


SECRETARY ! 

Joe Budge 

2507 Elderwood Ln. 

Burlington, N.C. 27215 

(919)-228-6055 
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COMMITTEESi 

The following are the chairmen or organizers of the various 
IAC committees and special interest groups. They are just forming 
and need your participation. Members of member clubs, sponsors, 
and associate members are welcome. If you have any interest 
contact the chairmen directly or through the IAC. They can tell 
you exactly what the committee is up to. If you wish to form or 
participate in a special interest group not listed here, let the 
IAC know so that a SIG can be set up. 

Orchard Publication! Val Golding, 670 8 39 th Ave. S.W., Seattle, 
Wash. 93136. (206)-932-6588 

IAC Software 1 Neil Lipson, 29 S. New Ardmore Ave,, Broomall, Pa., 
19008 (215)-356-6l83 

New Club Assistance! Dick Sedgewick, 100 Horne St., Dover, N.H., 
03820 (603)-742-3703 

Constitution & Bylaws 1 Ken Silverman, c/o International Apple 
Core (4l5)-878-9171 

Telecommunications: Craig Vaughn, 2633 E. 28th Ave. STE 622 , 

Signal Hill, Calif. 9 O 8 O 6 (213)“595-6858 TCA 099 

Standards! Mark Robbins, 2726 S. Moline Ct., Aurora, Co. 80014 
(303)-755-6440, ( 303 )- 696-0200 

Newsletter Librarian! Major Terry N. Taylor, 12319 E. Bates Circle, 
Aurora, Co., 80014 (303)-750-58l3 

Newsletter Exchange Coordinator! David Alpert, 880 Mellody, 

Lake Forest, Ill. (312)-295~6078 

Education SIGi Ted Perry, 5848 Riddio, Citrus Hts., Ca. 95610 
(9l6)-96l-?776 

Handicapped SIGi Bernie Urban, 6205 Walholding Rd., Washington, 
D.C., 20016 (301)-229-3458 

Legal SIGi Butch Clayton, P.0. Box 70278, Charleston Heights, 

S.C., 29405 (803)-884-5370 (803)-554-9l71 

Ham Radio SIGi James E. Hassler, 129 Park Ave., Orchard Valley, 
Cheyenne, Wy. 82001 (307)-632-4934, WB7TRQ on 14.329Mhz 
Sunday Nights at 5, PST. 
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APPLICATION FOR MEMBERSHIP 

Name of Organization*_ _ _ 

Class of Membership* ___--- 

Mailing Address* 

Street * _ _ __—-————-— 

City* ________State*_Zip*_ 

Country*___——- 

(If the above is a post office box, please supply a street address 
below where parcels may be sent*) 


Officers» 


NAME 


PHONE 


President* __ 

Treasurer* ___ 

Editor* __ 

Other* ___!- 

Terms Expire* _ Copies of "The Apple Orchard" desired 

Number of Members*_ at $ 1.00 each* _ 

Total Remittance Enclosed* !&_ 

- Full membership is available only to Apple User’s Groups. A $50.00 
initiation fee must accompany this form. Only full members may 
order the "Orchard" with this form. 

- Applicants for Associate Membership are asked to provide evidence that 
they are a non-profit institution. There is no membership fee. 

- Sponsors* Please indicate the name, position, and telephone number 
of‘the person in your organization responsible for liason with 

the IAC*. The Sponsoring Membership fee is $200.00 
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Dear IAC Member Club: 

At the first annual meeting of the IAC many subjects were discussed like 
special interest groups, by-laws, and information transfer. A full report 
should be forth comming dealing with the meeting. 

I would like to inform you of the outcome of certian subjects in which there 
has been a great deal of concern - those subjects being 1) our publication "The 
Apple Orchard", 2) Club Dues, 3) The Source, and 4) Software. 

1) "THE APPLE ORCHARD" - It was decided, at this time, to have a quarterly 
issue starting in September of 1980. If it is accepted and is a success it 
could be published every other month. The cost on the news stand will be 
$3.50. The cost to member clubs on a bulk purchase will be $2.00 a copy. If 
an individual subscribes it will be $10 for four issues - or $2.50 a copy. We 
recommend individual subscriptions to speed delivery to the end Apple user. If 
mailed to a club it would take time and money from that club for 
re-distribution. The method in which subscriptions will be handled is 
forthcoming - we are in the process of signing agreements with the publishers. 

2) CLUB DUES - The Board of Directors decided that each member club will pay an 
annual dues of $50. This will start in January of 1981. A new club will still 
pay the $50 initiation fee in addtion to the annual dues. The membership size 
of a club will have no bearing on the dues cost. It is basically a token 
amount so that a club shows an interest in the IAC. The IAC will most likely 
send each club a free software disk each month - this alone makes up the $50 
dues. 

3) THE SOURCE - Originally we informed some of our member clubs that a free 
"Source" account would be forthcoming so that there would be open 
communications between clubs and the IAC. The "Source" has and still is going 
thru some major changes. We are still in contact with them and are in the 
closing stages of an agreement. When the agreement is signed our member clubs 
will be informed. The following is what we hope will come out of the 
negotiations: 

a) IAC Source mail box for clubs to leave messages & 
questions. 

b) Individual accounts for the officers and directors to 
conduct IAC business. 

c) A club account for each member club. The account fee 
($100) would be FREE but there would be monthly billing for 
usage at Source rates. One member would have to be 
responsible for the club account by putting the billing on 
his/her VISA or Master Charge card. Who or how that club 
account is used will be up to the club and the individual 
responsible. In addtion the necessary software to use the 
Source with the Apple will be supplied FREE. All club 
account numbers will be published in the Orchard. 

PO.BOX 975 CALY CITY CALIFORNIA 94017 _ 
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4) SOFTWARE - It was agreed that software being supplied by the IAC to 
member clubs will be FREE, even the disk it is supplied on will be FREE. 
We hope to give a "Disk a Month" to each member club. How a member club 
gives it to its membership will be up to them. The programs on each disk 
can not be charged for but a club my charge for the "medium". 
Distribution will be by the Software Committee. 

NOTE: At the meeting in March two disks were given to each Director to be 
giv6u to the clubs m their area. One disk had some new utilities and the 
other was for owners of an Apple II Plus, which contains a good 
m ini-assembler and it has a version of INTEGER Basic but it won't work in 
all program cases. 

I hope this will answer some of your more immediate questions but if you 
still are concerned on any subject please don't hesitate to call me in the 
evening. I can be reached on 415+878—9171 between 5:30 and 10:30PK 
Pacific time. 




Thank You, 



Ken Silveman, v 
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TO: Member Clubs 

Sponsors 
Associates 


Dear Members: 

Enclosed you will find the complete minutes of the International 
Apple Core's meetings to date. The first meeting was held in San 
Francisco last October. This was the start-up meeting: all the 
attendees were flown in by Apple Computer and asked to form an 
International Users Organization. After the meeting the various 
officers, directors, and chairmen went to work contacting clubs, 
arranging publication of The Orchard, and drawing up the outline of 
the IAC. The next meeting was held in March, when the representatives 
of member clubs convened. The first regular directors and operating 
officers were elected at this meeting, and most of the IAC's structure 
was worked out. Following the Annual Meeting of the clubs, the new 
Board of Directors met to begin organizing the administration and 
policies of the IAC. A second meeting was held in May to continue this 
organizational work. Most directors were then in Anaheim, California 
as guests of Apple for the unveiling of the Apple III. 

I am sure you will find the minutes of these meetings quite 
interesting and informative. Many of our new members will be learning 
the detailed history of the IAC for the first time. Older members may 
have attended some of these events, but few have attended all. There¬ 
fore, these minutes will explain many details of the IAC which haven't 
yet been generally distributed. 

As always, please feel free to contact your directors or officers 
if you have any questions about this material. 

Regards, 


Joseph H. Budge 
Secretary 

International Apple Core 
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BOARD OF DIRECTORS MEETING 
MINUTES 

Submitted by Ken Silverman - Secretary 

DATE: October 27, 1979 

PLACE: Ramada Inn, San Francisco 

ATTENDIES: See attached list 

The meeting was opened at 9 a.m. by Val Golding of the Apple Puget Sound 
club. Everyone introduced themselves (see list). Opening remarks 
included the reason for the meeting - i.e. the formation of an Inter¬ 
national Apple users group. Interim officers were appointed so that 
the business of forming an organization could be started. The following 
were the results of the appointments: 

President - Val Golding 
Vice President - Neil Lipson 
Secretary - Ken Silverman 
Treasurer - Dave Gordon 

A name for the organization was presented and accepted as the "INTERNATIONAL 
APPLE CORE". 

During the opening remarks and appointments two representatives of the 
Apple Computer Company, Phil Roybal & Jim Hoyt, helped in organization and 
direction. The Apple Corp. was instrumental in calling this group together, 
in fact, they paid to fly the representatives to San Francisco, so that 
this type of organization could be formed.. (NOTE: It was talked about 
and confirmed several times during the conference that Apple would help 
only in getting the group started. The organization is to be completely 
independent of all manufacturers and software companies and is responsible 
only to its user membership). 

Many items were presented by attendees and a list of subjects to be 
covered were put on display paper by Phil Roybal so we could detail them 
as needed. Items to be covered: 

I - THIS GROUP 

1- Today 

2- March West Coast Computer Faire 

3- Task Forces 

4- Local user group problems . 

II - USER GROUP OBJECTIVES 

1- Funding 

2- Communications 

3- Special interest groups 

4- How to form a user group library 

5- Bylaws and purpose 

6- Local/National user interaction . 


1.1 



7- Mfg. interface 

8- Membership 

9- Social goald 

III - MARCH MEETING OUTLINE 

1- Attendees 

2- Logistics 

3- Apple Faire 

IV - NON-AGENDA ITEMS 

At this time the items in group II were discussed as items from TODAY in 
group I: 

It was brought up that unless this group could communicate freely in all 
directions it would be difficult to obtain credibility. Communications 
must be open to all member clubs in both directions and to all hardware 
and software companies - so that information can be shared; This will be 
accomplished by the use of the network called the SOURCE. Apple & Joe 
A1insky will get us a free account (not to be abused) for our use. Randy 
Hyde will get the account and user info to member clubs and board members 
as soon as it is approved. 

NOTE: AS THE DAY WENT ON COMMITTEES WERE FORMED AND CHAIRPERSONS 
APPOINTED - SEE ATTACHED LIST. 

At several times during the weekend funding was discussed. In order to 
bring in membership (both clubs and its members) we needed to offer them 
something, a "CARROT 11 . The Apple Corp. said they had a large pile of 
application notes (something like a Woz pak) that they could give out. 

In addition a complete set of all Apple reference manuals, card manuals, etc. 
would also be given. These items and a cover letter by the International 
Apple Core would serve as an inducement for the clubs. The club would 
have to pay a one time initiation fee of $50 to be a member of this 
organization. Apple will mail this package to their complete list (around 
75) of Apple user groups. Bernie Urban said he would look into Federal 
Funds. An annual dues structure would be discussed at the first annual 
meeting after we signed up member clubs. (Dave Gordon - interim Treasurer 
said this would most likely be around $5.00 per person a year). 

The talk of dues and club membership brought up the subject of types of 
membership. Three types were discussed: 

User Group Membership 

Associate Membership - Non-profit & non-voting 
Sponsoring Membership 

The Sponsoring Membership was created for commercial business like Apple 
Corp. and other manufacturers. It would cost them $1000 a year to be a 
member or if they joined now before the March Faire, $750. For their 
membership they would get the following: 
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Choice of Ad space in publication 

New product feedback 

Application notes 

Member of standards committee 

Publication subscription 

Right of input 

Right of response 

A vote on the standards committee 

A Sponsor would have no vote on the Board of Directors in the organization. 

The associate membership would be for organizations like schools (not non¬ 
profit users groups). They would have no fee and no vote but would receive 
a copy of the publication and other information whenever possible. 

The SPECIAL INTEREST GROUPS topic was discussed with the end result as we 
would support all of them. This would be more on a local level because 
there are so many of them. A STANDARDS & CONVENTIONS Committee will be 
formed during the March meeting to be held in 1980. The formation of a 
committee to put a CLUB KIT together was completed to be chaired by Dick 
Sedgewick. This committee will compile information on how to start a 
club, a library, set up communications with the International group and 
much more. 

At this time one of the Task Forces was formed. This group would put out 
a major publication to coincide with the West Coast Computer Faire and 
consist of input from all the large clubs via their editors. The publi¬ 
cation is expected to be over 100 pages long and will retail for about 
$5.00 a copy. All member clubs will get copies for their membership for 
$1.00 a copy. This issue will most likely cost over $60,000, over 
50,000 copies will be made, and we hope to bring in $100,000 (see attached 
sheet on newsletter funding). Apple Corp. will also mail a copy to 
everyone on.their Apple owner list (they will pay for the copies). Val 
Golding, editor of Call Apple will head this group (see list for other 
members of this committee). All copy for this issue must be in Val's hands 
by December 1st. At this time Larry Wise, of Information Unlimited, who 
was sitting in on the meeting offered copies of the word processor 
"EasyWriter" to each editor on the committee. This was accepted and the 
board in return would like to give Information Unlimited a 1/2 page in 
the publication. Motion was made and carried. Larry thanked the board. 

A discussion of the March meeting was then taken up. It was decided to 
hold our meeting on Thursday before the Friday opening of the Faire (March 
13th). At this meeting votes would be taken on the following: 

Constitution & Bylaws 

New Officers 

Fees 

Committees 

Confirmation of the Board of Directors 

During the Faire, on Saturday, we would summarize the organization and 
have seminars (See list for Faire committee). 
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The day was getting on and at this time we listed the committee responsibilities 
Business plan 
Action items 
Expenses - Budget 
Justification of committee 

Each committee was asked to work on the above and to submit as soon as 
possible. 

The meeting adjourned at 4:35. 
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INTERNATIONAL APPLE CORE 


BOARD OF DIRECTORS MEETING 
MINUTES 

Submitted by Ken Silverman - Secretary 

DATE: October 28, 1979 

PLACE: Ramada Inn, San Francisco 

SECOND DAY OF CONFERENCE 

The meeting opened at 9:06 by Val Golding interim President. It was 
stated that most attendees had flights out of San Francisco early. 

The topics for today: 

I - Board of Directors: 

1 - Where to meet 

2 - How is Core to be organized 

3 - How to insure geographical distribution 

4 - Pay board member expenses 

The following is the results of discussions on how the Board Of Directors 
should be formed and who has a vote on that board: 

There will be four regions in the United States - 
North - South - East - West 
These would be divided by: 

The Mason-Dixon line in the South 

The Rockeys in the West 

The Appalachians in the East 

Each region would have two representatives, voted by the members in their 
area, who would serve on the Board of Directors. There also would be two 
representatives from outside of the United States. This gives a total of 
10 votes - these 10 directors then would elect a President of the Core and 
that person would also have a vote on the board. The President would not 
also be an area representative. This gives a total of 11 votes. The 
President and Board would then elect the rest of the officers and committee 
persons. The rest of the officers and committee persons would not have a 
vote on the board. 

The term of office for an area board member would be two years except in 
this first year to start in March 1980. In this first year one of the 
representatives from an area would serve a one year term and the other a two 
year term. This would give the organization continued continuity thru the 
years. The officers, including the President, and committee person would 
serve a one year term but is re-newable. 

If for any reason an area representative cannot attend an annual meeting 
they may vote on agenda items by proxy. 



Much more in this area needs to be done and the draft of the bylaws should 
cover most of them. 

Ken Silverman suggested that the International Apple Core logo be a globe 
of the world with a bite taken out and a crescent moon over it - motion 
made and carried - Apple will have their graphic department do drawing. 

Before adjourning the topic of ETHICS was discussed. The following policy 
was adopted by the members present: 

We do not condone the piracy of software. 

No club library will include copyrighted software unless it is 
released for duplication by the author. 

The meeting will be held on Thursday March 13th in San Francisco - time 
and place to be forthcoming. 

If enough monies come in via the clubs and the sponsoring memberships the 
Core will try to pay for the area representatives to fly to the meeting. 

Meeting ended at 11:30 a.m. 
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INTERNATIONAL APPLE CORE 


SPECIAL FAIRE NEWSLETTER FUNDING 


SOURCE 

COPIES 

AMOUNT 

ADs 


$24,000 

Apple Corp 

25,000 

25,000 

SF Apple Core 

1,000 

1,000 

A.P.P.L.E. 

4,000 

4,000 

Applesause 

1,000 

1,000 

ABACUS 

300 

300 

Houston 

400 

400 

N.E.A.T. 

150 

150 

Apple Pie 

250 

250 

Michigan 

250 

250 

Phil a 

150 

150 

Stores 

15,000 

45,000 

Fai re 

3,000 

7,500 


45,5K 

$108K 
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SOFTWARE DISSEMINATION 
Plan 1/1 


INFOR, TRANSFER 


KIT COMMITTEE 


Neil Lipson - Chairman 
Randy Hyde 
Larry Danielson 
Ed Avelar 
Kip Reiner 

Randy Hyde - Chairman 

Bernie Urban 

John Lawrence 

Mat McIntosh 

Mike Weinstock 

Val Golding 

Jim Hoyt 

Ken Silverman 

Dick Sedgewick - Chairman 
Bernie Urban 
Fred Wilkinson 
Bob Collins 
John Lawrence 
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INTERIM OFFICERS & COMMITTEES 


INTERIM OFFICERS 


PRESIDENT 

VICE PRESIDENT 

TREASURER 

SECRETARY 

Val Golding 

Neil Lipson 

Dave Gordon 

Ken Silverman 


INTERIM REGION DIRECTORS 

NORTH 

John Lawrence 

7 

SOUTH 

Bob Collins 
Dewayne VanHoozer 

EAST 

Bernie Urban 

Dick Sedgewick 

WEST 

Fred Ilkinson 

Joe A1 insky 

INT 

Reger Ossie 


? 


COMMITTEES 


NEWSLETTER 

Articles by 12/1 

Van Golding - Chairman 

Ken Silverman 

Randy Hyde 

Ed Avelar 

Mark Crosby (Washington DC) 
Ed Seeger 

THE SOURCE 

Joe A1insky - Chairman 

Craig Vaughn 

Jim Hoyt 

FAIR - LOGISTICS 

Speaker call 11/3 

Budget 12/1 

Schedule 12/1 

Mat McIntosh - Chairman 

Fred Wilkinson 

Dave Gordon 

Phil Roybal 

CONST. & BYLAWS 

Draft 1/30 

Ken Silverman - Chairman 

Jim Hoyt 

CARROT 

Ship 11/15 

Randy Hyde - Chairman 

Jim Hoyt 

BUDGET/FINANCE 

Input 1/1 

To Sec 1/30 

Mail 2/1 

Dave Gordon - Chairman 

Val Golding 

Mike Weinstock 

Rudge Allen 
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PERSONS PRESENT AT 10 / 27/79 MEETING 






INTERNATIONAL APPLE CORE 
ANNUAL MEETING OF THE FULL MEMBERSHIP. 
MINUTES 

Submitted by Joseph H. Budge - Secretary 
March 13, 1980 


The first Annual Meeting of the Full Membership of the International 
Apple Core, herein after referred to as the "General Meeting", was held 
at 9:00 AM on Thursday, March 13, 1980 in the San Francisco Convention 
Center in San Francisco, California. Mr. Silverman, the interim Secretary, 
was present as the presiding officer. Proceedings were videotaped by Mr. 

A1insky in lieu of a recording officer. . 

ATTENDANCE: 

As the General Meeting does not constitute a deliberative assembly, 
determination of a quorum was not necessary. A list of member clubs 
represented is attached (Appendix I). 

BUSINESS: 

The interim Secretary stated that the areas of representation had 
been reapportioned by the officers to follow state lines instead of 
cutting across states. A map was displayed and approved by the assembly 
(Appendix II). Following this the Secretary showed how the interim 
Board had structured the IAC so that each area would elect Directors who 
in turn would appoint Officers (Appendix III). 

TEMPORARY ADJOURNMENT: 

At 9:30 AM the General Meeting was adjourned for one hour. During 
the temporary adjournment the Full Members caucused to elect Directors. 
Following their election the Directors met to appoint the Officers. The 
General Meeting resumed at 10:30 AM. 

INTRODUCTION OF DIRECTORS AND OFFICERS: 

The elected Directors were introduced and recognized by the assembly. 
The Directors were: 

JOE ALINSKY FRED WILKINSON 

JON LAWRENCE HARLAN FELT 

JERRY VITT SCOTT KNASTER 

BERNIE URBAN TONY CERRETA 

NEIL BENNETT WOLFGANG DEDERICHS 

The following officers were appointed to one - year terms by the Board: 
PRESIDENT: KEN SILVERMAN 
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VICE PRESIDENT: MICHAEL D. WEINSTOCK 
SECRETARY: JOE BUDGE 
TREASURER: DAVID GORDON 

More detailed descriptions of the Directors and Officers are attached 
(Appendix IV). 

REPORTS OF INTERIM OFFICERS: 

The interim President, Mr. Golding, reported that the original idea of 
the IAC had been to serve Apple user clubs. He was very pleased with the 
results so far and with the way in which the IAC idea had been accepted. 

The first issue of the "Orchard" had been published. As this was a rushed 
issue, he expected future issues to be of even better quality. 

The Treasurer reported that the IAC held $17,000 in cash at the bank. 

His complete report is attached (Appendix V). After discussion it was 
determined that the Treasurer will become bonded. 

The outgoing interim Officers, Mr. Golding, President, and Mr. Lipson, 
Vice President, were thanked for their help and efforts. 

REPORTS OF COMMITTEE CHAIRMEN: 

The Bylaws committee reported that a first draft of the Constitution 
and Bylaws had been prepared. The Constitution spelled out the organization's 
rights and restrictions. It would be used as the Charter in incorporation 
and therefore would be difficult to change. The Bylaws, on the other hand, 
provided flexibility for the organization. They could be changed under the 
rules set forth for amendment. Both Constitution and Bylaws were put on 
the floor for discussion later during the General Meeting. 

The Software Committee reported that it had organized a tree system for 
the distribution of software. In .answer to a question from the floor it was 
explained that the members of all committees at that time were volunteers 
from the first organizational meeting of the IAC. The Software Committee 
did not intend to distribute every public domain program as there were too 
many. Instead it would try to distribute the best and make available a 
list of who held what public domain programs for exchange purposes. 

The Kit Committee had proceeded towards defining a kit for forming 
clubs. The kit will consist of a sample Constitution and Bylaws, a descrip¬ 
tion of how to start a club, and some software to help start the club's lib¬ 
rary. 

DISCUSSION: 

The majority of the General Meeting consisted of explanation and dis¬ 
cussion of the IAC's organization and operations. These discussions are 
summarized below: 

A large part of the discussion centered around the Constitution and 
Bylaws. The Constitution was explained and left largely unaltered. The 
Bylaws were re-written during the course of the discussion to reflect 
technical improvements and the consensus of the assembly. The Bylaws, as 
so discussed and modified, provide for three categories of membership: 

Full, Associate, and Sponsor. Full members would be clubs and would have 
the only vote. Associates would be non-profit institutions who would 
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receive printed matter free. Sponsors would be companies or individuals who 
would receive special advertising privileges as well as the normal flow of 
information from the IAC. Business of the IAC would be guided by a Board 
of Directors, of which there were 10 members. Two Directors would come 
from each region of the United States and two would come from outside the 
U.S. (Appendix III). The Directors would elect the Officers to provide 
for the daily operations of the IAC. Other provisions in the Bylaws pro¬ 
vided for amendment and referenda of the membership. It was determined , 

that a final draft of the Constitution and Bylaws was to be prepared. Apple 
Computer’s legal staff had volunteered to participate in the drafts' pre¬ 
paration. When ready, the draft would be sent to all the Full Members for 
additional comments and suggested changes. After final review by the Board 
and addition of final changes, the documents would be used for incorporation 
of the IAC. Additional changes to the Bylaws would then be available under 
their amendment provisions. The entire process was expected to take about 
six months. 

A questioner from the floor asked why the West Coast wasn't receiving 
greater representation since there were more Apple computers there than 
anywhere else. The chair answered that the subject had been extensively 
debated during the first organizational meeting. The participants finally 
decided that it was important to keep any one group from dominating the IAC. 
Therefore the equal representation arrangement was agreed to. The chair 
further pointed out that the Bylaws are open to change by the Board or by 
referendum if this arrangement is too objectionable. 

Distribution of the "Orchard" was then explained. Apple Computer 
had bought 25,000 "Orchards" to send to registered owners on the "Contact" 
list. These were sent free of charge. Unfortunately Apple's mailing list 
only covered about 25% of all Apple owners. To close the gap, the IAC 
printed another 25,000 for distribution through clubs and retail outlets. 

These would be sold to old and new Apple owners alike. Beginning with the 
next issue Apple planned to send each new owner a complimentary copy of 
the "Orchard" by way of introducing the IAC. Orchards would be available 
to everyone else through subscription, through retail outlets, and through 
clubs. 

It was also explained that Apple Computer, Inc. had sent out the 
package of manuals to every new member in the IAC. These had been provided 
free. However, Apple had announced that the packages would not be provided 
after the General Meeting. The Assembly thanked Apple for the packages 
which had been sent. 

A questioner from the floor asked if "Call-A.P.P.L.E." would be merged 
into the "Orchard". Mr. Golding responded that it definitely would not. 

The editorial contents of the two publications would be entirely different. 

The IAC's dissemination of information was explained by the Chair. 

Two types of dissemination were planned. One would be the "Orchard", sub¬ 
ject to later approval by the Board. The other type of information would 
be in more specialized forms such as the distribution of software, Apnotes, 
and the like. 

At this point Major Terry Taylor, of Denver Apple Pi, asked the audience 
to tell their members to stop sending him copyrighted software. Denver 
Apple Pi maintains a large library of public domain software and an active 
exchange program. Major Taylor's request generated a discussion on public 
domain software and the IAC's role with respect to it. Mr. Upson, Software 
Chairman, said that he hoped IAC software could be donated by member clubs 
and be derived from articles in the "Orchard." While the software was public 
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domain he hoped that clubs would refrain from freely distributing it to non¬ 
members in order to promote the IAC. A member of the audience remarked that 
his club was upset to see its software being freely exchanged around the 
country. This was software the club had exchanged with another club. Fin¬ 
ally another member in the audience commented that public domain software 
was just that: public and open to all. 

The discussion then turned to the alternative types of membership 
available in the IAC. Associate members were envisioned as schools, rehab¬ 
ilitation centers, and other organizations that can't really afford member¬ 
ship, but frequently have Apples and need the information. The IAC hoped 
to provide them with the free information sent to clubs. Sponsors, on the 
other hand, would be manufacturers of software or hardware. They would be 
charged more for membership but would be given some benefits that clubs 
don't need. Advertising preference and mailing lists were cited as examples. 

A question was raised on the floor over the dues that would be charged 
to member clubs. A letter sent to members by interim Officers in February 
had suggested a sliding rate based on club size, with the fee centering 
around $150.00. It was explained that the letter had generated considerable 
response which forced re-examination of the dues structure. The sliding 
rate based on size would promote cheating and dishonesty and was therefore 
not recommended. Furthermore, that dues structure was considered excessive 
and impractical. If all 75 Apple clubs known at that time had joined, dues 
would provide $11,250 in revenues. It was likely that such a high fee would 
scare off many clubs. Software sales were considered for revenue too. But 
if each club paid $10.00 per diskette per month, only $9,000 would be gener¬ 
ated. On the other hand "Orchard" subscriptions and advertising could be 
expected to net $75,000 in the first year. Since it was obvious that the 
IAC would have to depend on the "Orchard" for the majority of its funding, 
the interim Officers planned to recommend that the Board set the dues at a 
nominal figure. $50.00 per year was being discussed. 

A suggestion was made from the floor that the IAC fund grants in Apple - 
related research with any excess funds. This was generally agreeable to all 
and was allowed by the Constitution. Further discussion on the subject was 
not necessary, though, as the IAC had no excess funds at the time. 

APPOINTMENT OF COMMITTEES: 

Several Committees and Special. Interest Groups were established at the 
end of the General Meeting. These committees were open to any volunteers 
willing to do the required job. A full list of the committee chairmen 
appointed at the General Meeting is attached (Appendix VI). 

An Information Transfer Committee was proposed for the swift dissemination 
of printed information through the IAC clubs. The committee would have been 
a tree for copying and distributing printed matter. It died for lack of 
volunteers, however. Its functions were to be taken over by the Board. 

A Technical Committee was proposed to provide Hot-line type service for 
IAC members. This committee died for lack of a volunteer to chair it. 

The President and Secretary were appointed to the Bylaws Committee. 

The Committee's function would be to finalize the Constitution and Bylaws 
and organize the approval process. 

A Telecommunications Committee was established. The Committee's functions 
are to coordinate IAC activities on the different networks, to keep abuses 
down, and to work out ways to exchange information via telecommunications. 
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A Standards Cormrittee was established to work on hardware and software 
standards for Apple computers and the manufacturers who provide equipment 
and software for them. 

A Newsletter Librarian was appointed to maintain a file of member club 
newsletters. In addition a Newsletter Exchange Coordinator was appointed 
to facilitate inter-club exchanges. 

Both the Software and Kit Committees were continued. An Annual Meeting 
Committee was discussed. It was decided to leave arrangements for the next 
Annual Meeting to the Board. 

Several Special Interest Groups were established. These were for 
Education, Handicapped, and Legal uses of the Apple. 

ADJOURNMENT: 

The first Annual Meeting of the Full Membership of the International 
Apple Core was adjourned at 3:00 PM. Following Adjournment the club 
representatives present had an opportunity to caucus with their Directors 
prior to the Board Meeting at 3:30 PM. 
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INTERNATIONAL APPLE CORE MINUTES 
March 13, 1980 
APPENDIX I 

FULL MEMBERS REPRESENTED 
AT THE ANNUAL MEETING 


ABACUS 

APPLE FOR THE TEACHER 
A.C.E.S. 

MICHIGAN APPLE 

APPLE CORP CANADA 

SAN FRANCISCO APPLE CORE 

PHILADELPHIA APPLE CLUB 

NORTHWEST SUBURBAN APPLE USERS GROUP 

BIG APPLE USERS 

DENVER APPLE PI 

APPLE USERS CLUB AUSTRALIA 

APPLE CORPS OF SOUTHERN NEVADA 

APPLE PIE 

CINCINNATI APPLE SIDER 
MARYLAND APPLE CORPS 
appi f 

BOSTON COMPUTER SOCIETY 
HAAUGG 

SANTA CRUZ APPLE GROUP 
APPLE P.I.E. 

GREEN APPLES 
APP-LE-KATIONS 


HESEA APPLE COMPUTER CLUB 
ADAM II 

WASHINGTON APPLE PI 
ORIGINAL APPLE CORPS 
CAROLINA APPLE CORE 
APPLE T.A.R.T.S. 

MID-HUDSON MICRO USERS 
MIAMI APPLE 
MIDWAY COMPUTER CLUB 
SCAPPLE 

APPLE USERS GROUP EUROPE 
SUFFOLK APPLE COMPUTER SOCIETY 
6502 USERS GROUP 
THOUSAND OAKS APPLE PI 
NEW ENGLAND APPLE TREE 
NORTH ORANGE COUNTY APPLE CORE 
A.P.P.L.E. - WASHINGTON 
APPLE CORE CANADA 
C.A.C.H.E. 

APPLE PEELERS 
APPLE CREEK 
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APPENDIX III: ORGANIZATION CHART 




APPOINT 












INTERNATIONAL APPLE CORE MINUTES 
March 13, 1980 

APPENDIX IV: DIRECTORS AND OFFICERS 


DIRECTORS 


One-Year Terms: 


Two-Year Terms: 


1 - WEST 

Joe A1insky 
22240 Wyandotte 

Canoga Park, California 91303 

(213) 703-1894 
Original Apple Corp. 

2 - NORTH 

Jon R. Lawrence 
15487 Mi nock 
Detroit, Michigan 48223 
(313) 534-2433 
Michigan Apple Club 

3 - SOUTH 

Jerry Vitt 
6906 Waggoner PI. 

Dallas, Texas 75230 

(214) 369-7660 
HAAUGG 

4 - EAST 

Bernie Urban 
6205 Walhoi ding Rd. 

Washington, D. C. 20016 
(301) 229-3458 
Washington Apple Pi 


Fred Wilkinson 
P. 0. Box 40031 

San Franscisco, California 94110 
(415) 585-2240 
S. F. Apple Core 


Harlan G. Felt 
359 Lawton Rd. 

Riverside, Illinois 60546 
(312) 447-6267 
C.A.C.H.E. 


Scott Knaster 
5425 E. Kentucky Ave. 
Denver, Colorada 80222 
(303) 355-2379 
Denver Apple Pi 


Tony Cerreta 

55-A Locust Ave., #4G 

New Rochelle, N.Y. 10801 

(914) 636-3417 

Big Apple Users Group 


INTERNATIONAL 


7 - AUSTRALIA 


8 - EUROPE 


Wolfgang Dederichs 
Auf Drenhausen 2 
4320 Hattingen 
West Germany 
02324/67412 

Apple Users Group Europe 


Auby Mandell - Apple Core of Canada 
409 Queen St. W. 

Toronto, Ontario 
Canada M5V2A5 
(416) 868-1315 


Neil Bennett 
55 Clarance St. 

Sydney, Australia 2000 
612-293753 

Apple Users Club Australia 
9 - NORTH AMERICA 
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OFFICERS 


March 1 


PRESIDENT : 

Ken Silverman 
3673 Bassett Ct. 

South San Francisco, California 94080 

(415) 878-9171 

San Francisco Apple Core 

VICE-PRESIDENT : 

Michael Weinstock 
64 Pinedale Rd. 

Hauppauge, L. I. 

New York 11767 
(516) 360-0988 
Big Apple Users Group 

TREASURER : 

Dave Gordon 
19273 Kenya St. 

Northridge, California 91324 
(213) 384-0579 
Original Apple Corp. 

SECRETARY : 

Joe Budge 

2507 Elderwood Lane 
Burlington, N. C. 27215 
(919) 229-6037 
Carolina Apple Core 


, 1980 
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INTERNATIONAL APPLE CORE MINUTES 


March 13, 1980 

APPENDIX V: TREASURER'S REPORT 

RECAP OF ACTIVITIES 
THRU 3-9-80 


INCOME 

DUES 

ORCHARD SALES 
ADVERTISING-RECEIVED 
ADVERTISING-A/R (MEMO) $25,675.00 

TOTAL RECEIPTS 


EXPENSES 

PRINTING 

FREIGHT 

0/S LABOR, EXPENSES 

RENTAL 

REFUND 


$29,730.29 
1,100.00 
2,494.54 
875.00 
800.00 


TOTAL EXPENSES 

NET PROFIT (BANK BALANCE 3-9-80) 


$ 3,250.00 
30,250.00 
18,575.00 


$52,075.00 


$34,999.83 

$17,075.17 
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CASH DISBURSEMENTS 
THRU 3-9-80 


CHECK 

# 

PAYEE 

DATE 

DESCRIPTION 

AMOUNT 

1A 

Michael Weinstock 

12/8 

Expenses 

$ 136.00 

IB 

Carlos Printing 

2/2 

Printing 

10,000.00 

2 

Ken Silverman 

12/14 

Exp-P.C.Fund 

330.43 


B.S.C. 

Jan. 


4.20 

1001 

S. F. Apple Core 

1/15 

Refund-Orchard 

800.00 

1002 

Matt McIntosh 

1/25 

Expenses 

22.50 

1003 

Mike Weinstock 

1/25 

Expenses 

171.81 

1004 

Matt McIntosh 

1/25 

Expenses 

23.05 

1005 

Carlos Printing 

1/29 

Printing 

9,000.00 

1006 

Mike Weinstock 

2/15 

Expenses 

371.62 

1007 

Carlos Printing 

2/12 

Printing 

10,730.29 

1008 

Computer Faire 

2/12 

Meeting Room 

800.00 

1009 

Val Golding 

2/12 

Expenses 

43.45 

1010 

Patricia Boner 

2/12 

Expenses 

45.77 

1011 

Call Apple 

2/12 

Expenses 

35.00 

1012 

Patricia Boner 

3/1 

0/S Labor-Exp. 

763.65 

1013 

Matt McIntosh 

3/1 

Rental-Advent 

75.00 

1014 

Val Golding 

3/4 

Freight 

545.00 

Wire 

Val Golding 

2/27 

Freight 

556.50 


B.S.C. 

Feb. 

Checks 

16.34 

1015 

Matt McIntosh 

3/9 

Expenses 

30.35 

1016 

Patricia Boner 

3/9 

Expenses 

147.51 

1017 

Ken Silverman 

3/9 

Expenses 

351.36 


TOTAL 



$ 34,999.83 

RECAP 





Printing 

) $29,730.29 




Freight 

1,100.00 




0/S Labor-Expenses 2,494.54 




Rental 

875.00 




Refund 

800.00 




TOTAL $34,999.83 
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INTERNATIONAL APPLE CORE MINUTES 


March 13, 1980 

APPENDIX VI: COMMITTEE CHAIRMEN APPOINTED AT THE GENERAL MEETING 


Orchard Publication: Val Golding, 6708 39th Ave. S. W., Seattle, Wash. 

98136. (206) 932-6588 

IAC Software: Neil Lipson, 29 S. New Ardmore Avd., Broomall, Pa., 19008 
(215) 356-6183 

New Club Assistance: Dick Sedgewick, 100 Horne St., Dover, N.H., 03820 
(603) 742-3703 

Constitution and Bylaws: Ken Silverman, c/o International Apple Core 
(415) 878-9171 

Telecommunications: Craig Vaughn, 3450 E. Spring St., Suite 206, Long Beach, 
Calif. 90806 (213) 595-6858 TCA 099 

Standards: Mark Robbins, 2726 S. Moline Ct., Aurora, Co. 80014 
(303) 755-6440, (303) 696-0200 

Newsletter Librarian: Major Terry N. Taylor, 12319 E. Bates Circle, 

Aurora, Co., 80014 (303) 750-5813 

Newsletter Exchange Coordinator: David Alpert, 880 Mellody, Lake Forest, 

Ill. (312) 295-6078 

Education SIG: Ted Perry, 5848 Riddio, Citrus Hts., Ca. 95610 (916) 961-7776 

Handicapped SIG: Bernie Urban, 6205 Walholding Rd., Washington, D. C. 20016 
(301) 229-3458 

Legal SIG: Butch Clayton, P. 0. Box 70278, Charleston Heights, S. C. 29405 
(803) 884-5370, (803) 554-9171 
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INTERNATIONAL APPLE CORE 


BOARD OF DIRECTORS 
MINUTES OF THE ANNUAL BOARD MEETING 
Submitted by Joseph Budge - Secretary 
March 13, 1980 


FIRST SESSION 


The first Annual Meeting of the Board of Directors of the International 
Apple Core was held at 11:00 AM on Thursday, March 13, 1980 at the San 
Francisco Convention Center in San Francisco, California. This meeting was 
held during an adjournment of the General Annual Meeting of the International 
Apple Core (IAC). Mr. Cerreta presided and Mr. Urban took the record. No 
minutes were read. 

QUORUM: 

A quorum was determined to be present. Voting members present were 
Messrs. Allinsky, Wilkinson, Lawrence, Felt, Vitt, Knaster, Urban, Cerreta, 
Bennett, and Dederichs. No non-voting members were present. 

BUSINESS: 

After discussion the Board elected the following officers to one-year 
terms: 

President: Ken Silverman 
Vice-President: Michael D. Weinstock 
Secretary: Joe Budge 
Treasurer: Dave Gordon 

ADJOURNMENT: 

In deference to the General Meeting, the first session of the Annual 
Meeting of the Board of Directors was adjourned until the General Meeting was 
finished. 


SECOND SESSION 

The second session of the Annual Meeting of the Board of Directors of 
the International Apple Core was held at 3:30 PM on Thursday, March 13, 1980 
at the San Francisco Convention Center in San Francisco, California. This 
meeting immediately followed the first General Annual Meeting of the IAC. 

The President and Secretary were present as presiding and recording officers, 
respectively. Minutes of the previous board meeting having been read at 
the General Meeting, no minutes were read at this meeting. 



QUORUM: 


A quorum was determined to be present. Voting members present consisted 
of Messrs. Alinsky, Wilkinson, Lawrence, Felt, Vitt, Knaster, Urban, Cerreta, 
Bennett, Dederfchs, and Silverman. Other persons present but not voting 
consisted of Messrs. Gordon, Weinstock, Golding, and Budge. 

BUSINESS: 

Mr. Golding presented an editor's proposal to the Board for future 
issues of the "Apple Orchard." The Board discussed searching for other 
editorial candidates, but decided to work with Mr. Golding. This was done 
to allow continued publication of the "Orchard." Concern was expressed that 
Mr. Golding would have a conflict of interest between the "Orchard" and 
"Call-A.P.P.L.E." Mr. Golding stated that, due to the differing editorial 
contents of the two magazines, he didn't think the problem would occur. The 
Board decided that all articles would be submitted via the IAC Post Office 
Box and stamped "For Orchard Only." Specifics of Mr. Golding's proposal 
were then discussed. The Board shortened the term of the proposal to 18 
months, specified publication dates, and tightened the Editor's accounting 
requirements. As these changes were acceptable to Mr. Golding, the proposal 
was unanimously approved as amended. 

The "Orchard's" editorial content was briefly discussed. Everyone felt 
that the "Orchard" should be the definitive publication for Apple computers. 

It was suggested that it be made a journal of only new Apple-related articles. 
Mr. Golding stated that he intended to include those articles as well as 
reprint the best of articles from club newsletters and apnotes. This was 
agreeable to all. 

Mr. Golding then proposed that the IAC seek a professional publication 
firm to put out the "Orchard." He felt that such a firm could do a better 
printing job, - handle subscriptions, advertising, typesetting, and mailing. 

While this proposal was generally agreeable, the Board expressed concern 
that insufficient financial information was available to adequately judge 
the publisher's proposal. Additional concern was expressed that the publishing 
house could not handle the specialized form of advertising. It was agreed 
that Mr. Golding would seek a more specific proposal from the publisher while 
Mr. Weinstock would seek qualified candidates for the position of advertising 
manager. The prospective advertising manager would be offered no more than 
10% of the advertising revenues. The Board agreed to study the proposal further 
when more information becomes available. 

At the request of the international Directors the problem of international 
representation was discussed. It was felt that two international Directors 
was an inadequate number. Therefore, the proposed Bylaws were amended to 
allow one Director from each continent with the exception of Antarctica. The 
amendment was unanimously adopted. Mr. Mandell was recognized as the Director 
from the North American Region (Region 9). (See Appendix I). 

As discussed during the General Meeting, the international Directors 
expressed interest in having U. S. Directors represent their interests at 
future meetings and communicate with them in the interim. This was agreeable 
to all. Mr. Cerreta agreed to communicate with Europe, Mr. Vitt with Mexico, 
and Mr. Urban with Canada. Australia would represent itself as Mr. Bennett 
would be in the U. S. frequently. 
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Mr. Dederichs showed the Board a catalog his club had made of Apple- 
related hardware. He suggested that the IAC might wish to distribute the 
catalog once it was translated to English from German. No action was taken. 


ADJOURNMENT: 

As it was late, the second session of the meeting was adjourned at 5:10 
until the following night. 


THIRD SESSION - MARCH 14, 1980 


The third session of the Annual Meeting of the Board of Directors of 
the International Apple Core was held at 7:00 PM on Friday, March 14, 1980 
at the Holiday Inn, San Francisco, California. The President was present as 
presiding officer; Mr. Randy Fields was present in place of the Secretary as 
recording officer. Minutes of the previous meeting were not read. 

QUORUM: I 

A quorum was determined to be present. It consisted of Messrs, A1insky, 
Wilkinson, Lawrence, Felt, Vitt, Knaster, Urban, Cerreta, Bennett, Dederichs, 
Mandell, and Silverman. Other persons present but not voting consisted of 
Messrs. Gordon, Weinstock, Lipson, Vaughn, and Fields. 

BUSINESS: 

It was decided that Mr. Weinstock will call D. C. Hayes to obtain five 
Micromodems at cost or for trade in advertising. These will be made avail¬ 
able to Directors and Officers who do not own modems. The Modems may be 
either lent or purchased at cost from the IAC. 

After discussion the Board determined that the IAC will make no endorse¬ 
ments for products. If equipment is needed by the IAC it will trade advertising 
for equipment or services. 

An Information Transfer Conmittee was established. The Committee will 
consist of the Directors who will get information (Apnotes, etc.) from the 
Secretary. Directors will then make copies and pass them on to the clubs in 
their areas. Directors in an area will work out an arrangement between them¬ 
selves and inform the President of the methods they will use. Directors 
will receive a $100 fund to be used for phone calls and mailing of information. 
The Directors will send in all receipts to the Treasurer before receiving 
another $100. Directors are to prepare a budget for submission to the 
Treasurer next quarter. 

The duration of term of the new Directors, one year or two, was decided 
by the President with the flip of a coin. Messrs. Cerreta, Wilkinson, Felt, 
and Knaster will serve for two years while Messrs. A1insky. Urban, Lawrence, 
and Vitt will serve for one year. All International Directors will serve for i 
two years. 

The Board decided to hold the next Annual Meeting in either Boston, 
Washington, D. C., or Chicago. Directors in the above areas will obtain more 
information about the local Faires and report back for a decision by the 
Board in the near future. 

It was announced that the IAC represents about 8,000 individuals through 
its member clubs. All Directors will try to get more clubs to join. 


IV.3 



It was determined that the Vice-President will coordinate the writing 
and sending of a PR release to all magazines. 

After discussion it was decided to delay the installation of an 800 
number or "Hot Line". Lack of experts and volunteers to answer questions were 
cited as the primary reasons. 

The President asked for, and obtained, permission to add a new phone 
line to his house for the IAC. It was agreed that Mr. Gordon will obtain Sprint 
codes and numbers for all the officers and Directors. Billing will go to the 
Treasurer who will notify the President of abuses. 

Mr. Lipson asked about mugs and other specialty items to sell. After 
discussion it was agreed to make a small amount for a test at a Faire where 
the IAC would have a booth. 

After a long discussion it was motioned and passed to send each member 
club no more than one diskette each month with software. The diskette will 
be provided completely free of charge. The production rate will depend on 
supply: diskettes may not be produced as frequently as once a month unless 
incoming software is bug free and documented. 

It was determined that Mr. Vaughn will assist with standards for 
documentation. 

Use of the Source timesharing network was discussed. The IAC has an 
account provided at no cost for Officers and Directors. This account may 
not be used during prime time, as the IAC will be billed for such use. 

File storage will not be free; again the IAC will be billed. Use of file 
storage must therefore receive prior approval by the President. Negotiations 
are proceeding to obtain accounts for member clubs. The IAC will attempt to 
obtain for member clubs a waiver of the sign on charge (currently $100). The 
clubs would still be billed for their own use, however. Mr. Vaughn announced 
that Peripherals Unlimited will give all Directors and Officers a copy of the 
Source sign-on program in exchange for the $200 sponsoring fee. This was 
agreed to by the Board. 

Mr. Weinstock announced that he had obtained fifteen free accounts for 
IAC use on Micronet. These accounts are also for Directors and Officers. 

They will be used for local club type mail in both directions. Mr. Weinstock 
will send all information to the Directors and Officers. 

The Directors determined to work out a plan for voting in their region 
by member clubs. That plan is to be written up and given to the IAC Secretary. 
This will allow new clubs joining in an area to learn how to vote and how to 
contact their directors. International as well as national Directors will 
prepare such plans. 

It was determined that the IAC will look into assembling an Apple 
training program. Mr. Urban and Mr. Fields will work on the project. This 
will take a great deal of time. It is hoped to have a concrete outline and 
plan in time for the next Annual Meeting. 

After discussion it was determined that outgoing Directors will not be 
paid to attend an Annual Meeting. When a new Director is voted into the 
Corporation the Secretary is to be notified as soon as possible. 

Full Member dues per year were set at $50.00 independent of membership 
size. This is a nominal fee as it doesn't even cover the price of the 
monthly diskettes. The dues will be payable in January 1981. If a club 
joins this year it will pay only a $50.00 initiation fee. Next year it will 
pay both the initiation fee and the dues for that year, a total of $100. 

Sponsoring membership dues were set at $200.00 per year. Membership, 
once paid, will be valid for a full 12 months from the date of payment. 
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ADJOURNMENT: 

The first Annual Meeting of the Board of Directors of the International 
Apple Core was adjourned at 10:00 PM. 
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INTERNATIONAL APPLE CORE 


BOARD OF DIRECTORS 
MINUTES OF A SPECIAL MEETING 
Submitted by Joseph H. Budge - Secretary 
May 19, 1980 


A special meeting of the Board of Directors of the International Apple 
Core (IAC) was held at 4:35 PM on Monday, May 19, 1980 in the conference 
room of the Sunshine Restaurant in Anaheim, California. The President and 
Secretary were present as presiding and recording officers, respectively. 
Synopses of the minutes from the previous Board meetings were read. Approval 
was deferred. 

QUORUM: 

A quorum was determined to be present. Voting members present consisted 
of Messrs. A1insky. Urban, Wilkinson, Felt, Vitt, Mandell, Knaster, and Silver- 
man. Those present but not voting consisted of Messrs. Gordon, Weinstock, 
Vaughn, Golding, and Budge. 

REPORTS OF OFFICERS: 

The President reported that organization of the IAC was proceeding 
according to plan. 

The Vice President reported that tasks identified for him in the pre¬ 
vious Board meeting had been accomplished. Five D. C. Hayes Micromodems 
had been obtained in exchange for advertising. Three had been resold to 
Officers or Directors. Micronet hookup's had been finalized and obtained 
for the Directors and Officers. 

The Secretary reported that the IAC files and records had been organized, 
that three mass mailings had been produced, and that club correspondence had 
been handled. 

The Treasurer reported that the IAC held $26,000 in net cash, $10,000 of 
this was in a time deposit savings account which had been opened. Receivables 
consisted of $8,800 of unpaid Orchard ads and $4,000 of unpaid Orchard sales. 
19,000 Orchards remained unsold, representing another potential $19,000 in 
future revenues. The Treasurer reported that he had tried to determine a 
budget for the IAC but had dropped the attempt because no historical data 
were available yet. The President proposed that, until a full-time book¬ 
keeper was hired, the Treasurer's report be produced quarterly instead of 
monthly. The motion was unanimously approved. 

REPORTS OF DIRECTORS: 

Mr. Urban reported that he had written every club in the Eastern area 
in attempting to organize an area caucus. In a month he had received no 
responses, merely some calls with comments on IAC service. 

Mr. Wilkinson reported that he had telephoned most clubs in his portion 
of Area 1. No response had been generated towards developing an area caucus 
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because no one had had time to think about it. He also reported that the 
mailings had been onerous. 

Mr. A1 insky agreed with the previous reports. He found that clubs came 
to him mostly with questions about what the IAC should be doing. 

Mr. Vitt reported that he had visited with 17 clubs in his area. He had 
found personal contact with the clubs very helpful. 

Mr. Felt reported that he had contacted clubs in his area and attended 
many meetings. He requested that Directors be reimbursed for expenses incurred 
in travelling to club meetings. In addition he reported that he had talked 
with many dealers in his region and had sent each a letter requesting support 
for the IAC. He suggested that each director send a similar letter in each 
area. The Secretary will provide a copy to all Directors. 

BUSINESS: 

A postage machine was proposed for use in mailings. After discussion the 
proposal was dropped as impractical and expensive. 

A question was raised over the propriety of Directors or Officers con¬ 
ducting business with the IAC. After discussion it was decided that no current 
action was necessary, as no abuses were evident. All motions on the floor were 
removed. It was understood that the Treasurer's regular report would provide 
the proper checks on potential abuses. It was further understood, but not 
mandated, that all officers would be consulted prior to possible conflicts of 
interest. 

A motion was made that any outgoing Directors, not re-elected by their 
regions be flown to the Annual Meetings as well as the Directors - elect. The 
motion was seconded and passed, reversing the decision made at the previous 
meeting of the Board. 

In view of the Directors' lack of success in.organizing area caucuses, it 
was proposed that the Board include election procedures in the Bylaws. After 
discussion a committee of two-year Directors was appointed. The committee 
will report their recorrmended Bylaws additions by June 30. The proposal and 
committee were approved with no negative votes and one abstention. 

Concern was expressed over the large number of "Orchards" which remained 
unsold. It was reported that solicitation letters to dealers had just been 
mailed, so inadequate time had passed for a response. It was suggested that 
if clubs found that they had too many copies on hand the copies could pro¬ 
bably be sold to local dealers. No action was taken. 

The President showed samples of airbrushed IAC Tee-shirts which had been 
mentioned at the previous Board meeting. After pointing out that their 
quality was inadequate under the IAC's pending trademark agreement with Apple 
Computer, Inc., adoption of these Tee-shirts was unanimously vetoed. 

A motion was made that the President and Treasurer be empowered to sign 
legal documents on behalf of the IAC. After discussion the motion was amended 
to: "All officers are empowered to enter into contractual agreements on behalf 
of the International Apple Core." It was stipulated that the resolution was 
subject to final and appropriate wording by legal counsel. The motion as so 
amended and stipulated was passed by a 6-1 vote. 

The President was specifically authorized to sign checks for the IAC in 
the event that the Treasurer could not. 

The time and place for the next annual meeting was discussed. As persons 
delegated to study the Boston and Chicago sites were not present at the meeting, 
their reports were not available. After discussion the Board dropped Philadel¬ 
phia and Washington as possible sites and favored Boston. It was determined 



that Messrs. Urban and Cerretta will coordinate investigation of the Boston 
site and Messrs. Felt and Lawrence will do the same for the Chicago site. 

The President directed that the chosen site must have a club and person re¬ 
sponsible for organizing the IAC meetings and booths. The meetings will be 
held for two days prior to the associated convention; one day for the General 
Meeting and one day for the Director's Meeting. 

Mail and communications standards for the IAC were discussed. The Sec¬ 
retary will provide the necessary letterhead and envelopes. 

A motion was made that all mass mailings to clubs be made through a 
central service. The service would alleviate Directors from the burdens of 
mass mailings and would insure that all clubs would receive mailings more or 
less simultaneously. The service would also mail software. After discussion 
the motion was approved. The Board directed the secretary to pre-announce 
all mailings and their contents via telecommunications. The Directors and 
Officers would then have the opportunity to draft cover letters and transmit 
them to the Secretary for inclusion in mailings to their constituency. 

A motion was made that the IAC make available extra copies of Apnotes and 
other appropriate materials in bulk and at cost to member clubs. It was felt 
that clubs could make their own copies. The motion was unanimously defeated. 

The Secretary was directed to obtain from all clubs the times and places 
of their regular meetings so that the Directors may attend. 

Grawin Publications proposal for publication and advertising management 
of the "Orchard" was put on the floor for discussion. Concern was expressed 
on two points: First that Grawin's advertising proposal appeared unrealistic, 
and secondly that no alternative proposals were available for competitive 
evaluation. After discussion it was moved, seconded, and passed that the IAC 
contract with Grawin to publish and organize advertising for no more than 
three issues of the "Orchard" while a conmittee investigated alternatives. 

Mr. Alinsky and Mr. Weinstock were appointed to the Publication Committee. 

The Committee was charged to look at publishers, advertising managers, and 
all aspects of publication. The Committee is to provide cost and revenue 
analyses of alternative methods of publication and of generating advertising. 
If a publisher other than Grawin is eventually selected, suitable arrangements 
for communications between publisher and editor must be feasible. The pre¬ 
liminary report of the Publication Committee must be submitted by the time 
of publication of the next Orchard (September 1, 1980). Mr. Golding recom¬ 
mended that, for logistical purposes, a decision on a future publication 
agreement should be made by the time that the third issue of the "Orchard" 
goes to press. 

It was motioned that the Secretary be provided a tie line for local 
linkage to the telecommunications networks. After discussion this was deemed 
to be an operating decision best left to the Officers. 

ADJOURNMENT: 

The special meeting of the Board of Directors of the International Apple 
Core was adjourned at 10:00 PM. 
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INTERNATIONAL 
APPLE CORE 


April 15, 1980 


Members t 


The International Apple Core is pleased to enclose its first 
issue of application notes. You will findr 

- A list of known bugs in Pascal 
r A fixed quick input routine 

- A fix for the Append command in DOS 3*2 

- A list of the graphics entry points in Applesoft 

- A keyboard modification that allows some extra characters 

I recommend that you prepare a three ring binder to hold these 
and future application notes. Many more Apnotes will be forthcoming. 
In addition to new ones, Apple Computer has forwarded their entire 
package of Apnotes. Clubs joining the IAC prior to 3/13/80 
recieved this package in rough form. We will be cleaning them up 
and republishing them as time permits. I currently am working 
to classify the Apnotes in a sensible fashion. 


Regards, 



Xloe Budgi^f 
Secretary 


RO. BOX 976 DALY CITY, CALIFORNIA 94017 


t 
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INTERNATIONAL 
APPLE CORE 


APNOTES 


Prom time to time the International Apple Core will 
distribute application notes to our members. Application 
notes are technical corrections or improvements to Apple 
Computers or their software. Usually application notes address 
themselves to specific problems. Since other users share the 
same problems, we will make every effort to publish them on 
a timely basis. 

The International Apple Core solicits interested users 
and manufacturers to submit application notesfor publication. 
Appropriate subjects might bei 

-Hardware modifications to fix a design error 

-Hardware modifications to upgrade a system 

-Software patches 

-Software modifications to upgrade a program 

-Modifications to existing software/hardware 
that add new features to the Apple Computer 
system. 

-Notification of bugs and the conditions under 
which they occur. 

-Documentation to previously undocumented hardware 
or software 

Application notes are not restricted to Apple Computer Company’s 
products. They may apply to anyone’s, provided they will be of 
interest to Apple users. 

To expedite application note publication, we ask you to 
submit notes in publishable form. This is not a requirement. We 
feel it is more important to have an Apnote in any shape than to 
have a spiffy document. If you lack time or facilities the IAC 
will prepare final drafts for you. Publishable form means that 
text will be typed on white paper, preferably with a dark ribbon. 
Single space and use a readable character size. Page margins 
are 7.25 inches by 9.0 inches. Drawings should be neat and 
ledgible. The closer you can approximate this, the faster the 
Apnote can be published. Purley textual Apnotes can also be 
submitted in text files on diskette. Mail them toi 

Apnotes 

International Apple Core 

P.0. Box 976 

Daly City, Calif. 94017 

If you wish to assist in the review and "cleaning up" 
of Apnotes send us a note or call the IAC Secretary. 

RO. BOX 975 DALY CITY CALIFORNIA 94017 
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STALKING THE WILD 'V 


OF THE 36 STANDARD ASCII UPPER CASE AND CONTROL CHARACTERS, THE APPLE KEV80ARD CAN GENERATE ALL BUT 5. NAMELY, 
T" (TDB), "\" (TDD, V (IDF), AND CONTROL CHARACTERS FS (190 AND US • «9F) MHO CARES? WELL, CERTAIN FANATICS 
CAN'T STAND FOR THEIR APPLES TO BE LESS THAN PERFECT. AT EVERY OPPORTUNITY THEY “IMPROVE" THEIR MACHINES BY ADDING 
LOWER CASE ADAPTERS AND SHELLING OUT 5 BIG ONES FOR THAT LAST 16K RAM. NOTHING CAN STAND IN THE WAV OF THEIR QUEST FOR 

THE ULTIMATE APPLE 


THE KEYBOARD SHORTCOMING HRS LONG BEEN A THORN IN THE SIDE OF THESE APPLE ADDICTS AND VARIOUS CRUTCHES HAVE BEEN 
DEVELOPED. APPLESOFT CHRI ALLOWS PRINTING OF THESE CHARACTERS—TACKY AND INCOMPLETE. ONE CAN TRAP AND MODIFY VARIOUS 
CONTROL CHARACTERS IN A SPECIAL KEYBOARD INPUT ROUTINE, BUT THEN THE CONTROL CHARACTERS JUST TRAPPED CAN'T BE USED-- 
NGT ELEGANT. THE SOLUTION INVOLVES HRRDWARE MODIFICATIONS. SO CRANK UP THOSE SOLDERING IRONS OUT THERE KIDDIES—HERE 

IT COMES. 


THE L, K, AND 0 KEYS ON APPLE KEYBOARD ARE MERELY CONNECTED RCROSS THE WRONG MATRIX FINS ON THE NATIONAL SEMI 
MM574Q KEYBOARD ENCODER (NOT REALLY WRONG, JUST NOT THE BEST CHOICE, PERHAPS, SEE FIGURE i>. THESE KEYS ARE CURRENTLY 
CONNECTED AS FOLLOWS. 


K CONNECTS X4 TO V9, 

L CONNECTS X4 TO Y8, 

0 CONNECTS X3 TO Y9. 

THE IMPROVEMENT IS AS FOLLOWS. 

K CONNECTS X4 TO Y4, 

L CONNECTS X4 TO V5, 

0 CONNECTS X4 TO Y3. 

WITH THIS STRAIGHT FORWARD CHANGE, SHIFT-K GENERATES X”> SHIFT-L GENERATES B V, SHIFT-0 GENERATES CONTROL-SHIFT-L 
GENERATES FS, AND COHTROL-SHIFT-O GENERATES US (CONTROL-SHIFT-K GENERATES ESC). 


THE MODIFICATION IS DELICATE AND VOIDS THE WARRANTY, BUT IS GUARANTEED TO PROVIDE GREAT RELIEF FOR MANY HARDWARE 
FREAKS CRAVING SUCH A FIX. INSTRUMENTS REQUIRED FOR THE OPERATION ARE SOLDERING IRON, SOLDER, 4 SHORT LENGTHS OF 
HOOKUP OR WIRE-WRAP WIRE, SOLDER-WICK OR SOLDER-SUCKER, X-RCTO KNIFE, #2 PHILLIPS SCREWDRIVER, STEADY HANDS, AND 
PATIENCE 

FIRST REMOVE KEYBOARD FROM APPLE. THE K, L, AND 0 KEYS MUST NOW BE REMOVED FROM THE APPLE TO ALLOW ACCESS TO 
CIRCUIT TRACES BENEATH THEM. CAREFULLY REMOVE ALL SOLDER FROM THE KEVSWITCH TERMINALS AS THEY ARE FRAGILE AND MUST NOT 
BE FORCED OUT. CUT THREE TRACES AS SHOWN IN FIGURE 2. SOLDER SWITCHES KICK IN PLACE. CUT ONE TRACE ON BACK OF 
KEYBOARD AND ADD 4 JUMPERS AS SHOW IN FIGURE 3.. IF YOUR KEYBOARD TRACE5 DON'T FOLLOW THE PATTERN OF FIGURES 2 AND 3 
(NEWER VERSIONS DO NOT), VERIFY CONTINUITY FROM SWITCH TERMINALS DIRECTLY TO THE X4, V3, Y4, AND V5 PINS ON THE 
KEYBOARD ENCODER REASSEMBLE APPLE AND PUT YOUR TOOLS AWAY. THAT'S IT! 


YOU MAY NEVER NEED YOUR NEW CHARACTERS, BUT DON'T YOU FEEL MORE SECURE JUST KNOWING THEY'RE THERE 

FIGURE 1. SCHEMATIC OF APPLE KEYBOARD SHOWING MODIFICATION TO PRINT " ”, " ", AND " ". (ADAFTED FROM APPLE II 

REFERENCE MANUAL, PAGE 101.) 


FIGURE 2. VIEW UNDER K, L, AND O KEYS. 

FIGURE 3. VIEW OF BACK SIDE OF KEYBOARD. 


DAVID HUDSON 
15 DECEMBER 13?? 
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Computer Company, Ine. 
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APPLESOFT HIRES ROUTINES 


These are the entry points to program machine level high resolution 
graphics with the routines in ROM APPLESOFT. 


ZERO PAGE LOCATIONS 


HPAG 

$E6 

$20=PAGE 1, $40=PAGE 2 

ROT 

$F9 

USED WITH SHAPE ROUTINES 

SCALE 

$E7 

USED WITH SHAPE ROUTINES 


March 12, 1980 

These entry points supersede 
those published in the March, 
I960 "Apple Orchard",VIN1pi7. 

B2 


THE GRAPHICS ROUTINES 


HGR2 $F3D8 

INITIALIZE TO PAGE 2 


HGR $F3E2 

INITIALIZE TO PAGE 1 

HCLR $F3F2 

CLEAR CURRENT SCREEN TO BLACK 


BKGND $F3F6 

CLEAR CURRENT SCREEN TO LAST PLOTTED UCOLOR 


HPOSN $F411 

POSITIONS HIRES CURSOR WITHOUT PLOTTING. A=Y X=XL Y=XH 


HPLOT $F457 

POSITIONS HIRES CURSOR AND PLOTS A POINT. A-Y X“XL Y=XH 


HLIN $F53A 

DRAWS A LINE FROM LAST POINT TO A-XL X=XH Y=Y 


HFIND $F5CB 

CONVERT LAST POINT'S POSITION TO X-Y COORDINATES. 

THE RESULTS ARE IN $E0=XL $E1=XH $E2“Y 

DRAW $F601 

SHAPE DRAW SUB. A=ROTATION FACTOR, X=SHAPE TABLE LOW, 

Y“SHAPE TABLE HIGH. USES SCALE. 

XDRAW $F65D 

SAME AS DRAW EXECPT DOES AN EXCLUSIVE OR WHEN PLOTS ON THE 
SCREEN. 

SETHCOL $F6EC 

X=C0L0R. MUST BE LESS THAN 8. 


SHLOAD $F775 

LOADS SHAPE TABLE ABOVE HIMEM ($73,74) 


Thin application note has boon provided by an Apple Computer usor. The International Apple Core 
does not guarantee the accuracy of this Information In any way and cautions that modifications may 
void a manufacturer's warranty. Apple II, Applesoft, and Apple Computer are trademarks of Apple 
Computer Company, Inc. 
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LITERAL INPUT 


Here is another garbage collection forestaller with some nice 
additional benefits, "it allows you to enter commas, quotes, 
and colons into Applesoft without getting an "EXTRA^ICNORBD" 
error for your efforts and works just as well for either 
keyboard or disk input. Originally published in CONTACT 6 , 
the routine has been revised to remove some errors. Here s 
what it does* 


- Line 100 defines a string variable at a known memory location. 
(This name can be anything you wish. We just happen to use 
IN$. ) 


- Lines 220-290 poke a short machine language routine into 
page 3 of your Apple's memory. This routine changes the 
pointer to the string in memory to point at the input buffer 
($ 200 ). 

- Line 350 calls the new input routine and the MID$ function 
moves a copy of the new string into main memory so that it 
isn't overwritten by the next input. 

Here's a cute trick for using this routine with random access 
disk files. Say your program is reading a file for the third 
field in each record. Using this routine, the syntax for that 
would be« 


CALL ? 68 ».CALL 7681 CALL 7681 IN$=MID$(IN$,1) 

The first two calls are dummy INPUTS but, unlike the normal DOS 
"INPUT IN$" command, perform no string operations. 


Try it. You'll like it. 


B6-1 
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100 LET IN$ » M X" 

110 TEXT : HOME 
120 REM 

130 REM THE FIRST. VARIABLE 
140 REM DEFINED MUST BE A STRING 
150 REM THIS STRING WILL REC'VE 
160 REM INPUT FROM THE CALL 
170 REM 


180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 


REM THIS POKES THE INPUT 
REM SIMULATOR ROUTINE 
REM INTO MEMORY... 

REM 

FOR J ** 768 TO 790 
READ I 
POKE J,I 
NEXT J 

DATA 162,0,32,117,253,160,2 
DATA 138,145,105,200,169,0 
DATA 145,105,200,169,2,145 
DATA 105,76,57,213 
REM 

REM NOW TO USE IT! 

REM 

PRINT "TYPE IN ANY CHARACTERS YOU WISH:" 

PRINT 

CALL 768:IN$ - MID$ (IN$,1) 

REM 

REM THIS IS AN "INPUT IN$ M 

REM BUT IGNORES 

REM 

PRINT 

PRINT "AND HERE'S WHAT YOU TYPED IN:” 

PRINT f PRINT IN$ 

PRINT 

PRINT "NOTE THAT EVEN QUOTES, COMMAS AND" 

PRINT "COLONS GET THROUGH UNSCATHED." 

PRINT : PRINT "NOW LET'S WRITE IT TO THE DISK. 
PRINT CHR$ (4)"OPEN TEMP” 

PRINT CHR$ (4)"WRITE TEMP" 

PRINT IN$ 

PRINT CHR$ (4)"CLOSE” 

PRINT : PRINT "AND READ IT BACK IN..." 

LET IN$ = " " 

PRINT CHR$ (4)"OPEN TEMP" 

PRINT CHR$ (4)"READ TEMP" 

CALL 768:IN$ = MID$ (IN$,1) 

PRINT CHR$ (4)"CLOSE" 

PRINT PRINT IN$ 

PRINT : PRINT "TA-DAA!!": END 
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34* Use of the compiler swapping option causes global declarations 
to be ignored. 


35. The manual does not clearly state that the string argument o£ 
the .TITLE pseudo-operation must be enclosed in double 
quotation marks. 

36. /Not all options of the Editor are listed on the prompt line, 

and the M ? H option to get a list of the additional options 
is not supported. 

37* The reference manual does not adequately describe how to 
set up a program to be executed automatically, using 
SYSTEM.STARTUP. 

38. The Editor only accepts files with names of the form 
<file>.TEXT. 

39* The Editor is insensitive to certain punctuation conventions 
during paragraph reformatting. 

40. The Assembler should translate all alphabetics to upper-case. 

41. The documentation is inadequate in the description of assembly 
language and various options. 

42. The Compiler may generate an error #407 (too many libraries). 

43. The compiler generates code to always load segments 28-31 
if they are present. This may cause undesired loading. 

44. When the NOLOAD option is used for an intrinsic unit with a 
data segment, the compiler fails to generate code to unload 
the data segment at the end of execution. Thus, if the 
program is run again, the data segment will not be loaded 
since the interpreter segment table will show that it is 
already there. 

45. The ATAN function gives an erroneous result for an argument 
less than -1.00. 

46. BIOS does not turn off the high-order bit of characters 
handled by the remote I/O routines. 

47. The PI parallel printer PROM appears to be incompatible with 
BIOS. The P1-02 PROM is required. 

48. The listing file produced by the Assembler does not follow 
the standard for text files as described in the Apple 
PASCAL Manual. 
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49* There is some confusion about the differences between the 
built-in variable KEYBOARD and the volume identifier 
SYSTERM:. 

50. The fact that the Editor requires tedt files to have an even 
number of 512-byte blocks is not documented. 

51. If a run-time error occurs while in graphics mode, the screen 
does not switch back to text mode to display the error 
message. 

52. The Cross Reference program on APPLE3 does not close and lock 
the output file. 

53. The Compiler does not check the declared length of STRING 
parameters passed by reference. Therefore, if the declared 
length of the actual parameter is less than that of the 
formal parameter, assignment of characters into the 
formal can clobber space beyond the end of the actual 
parameter without detecting any error condition. 

54. Using an uninitialized long integer may cause unpredictable 
problems because there may be illegal bit patterns that 
are not representations of digits. 

55. The Compiler QUIET option (Q+) does not turn off all output 
to the console. 

56. The system will crash if the system disk containing the Editor 
is not on line when returning from a Copy File command when 
the system disk was replaced for a disk containing the file 

to be copied. 

57. The interpreter code for floating point comparisons returns 

0.0 > (- 0 . 0 ). 

58. DIV and HOD functions give incorrect results for certain 
combinations of signs for the arguments. 

59. The code to clear SYSC0M is incorrect’in the procedure BOOT. 

60. The figures given for the maximum integer values for each 
declared length of long integer are incorrect in the Apple 
PASCAL Manual, page 198. 

61. Source code for APPLE3:LINEFEED should be made available. 
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This is a list of known PASCAL problems- Updates and fixes will be 
announced 


1 . 


2 . 


3- 


4. 


5. 


6 . 


7. 


8 . 


9- 


10 - 


11 - 


12 - 


13. 


14 . 


15. 


16. 


17 . 


The integer value -32768 prints as "—2768" and causes a 
compile error in the expression I:=-32768 where I: Integer. 

A long integer compare causes the system to crash. 

The compiler does not allow R:Real; I,J:Integer; R:=I/J; 
which should be legal according to Jensen & Wirth page 147. 

The BREAK key (ctrl-shift-P) does not cause a break during the 
execution of some programs. 

A variable of type TEXT can be passed as a VAR parameter. 

This is OK according to Jensen & Wirth, page 157. 

The Editor sometimes ends a file with 00 instead of the 
required ODOO. This results in trash on the screen. 

TTL0UT in Apples tuff does not work. 

Transcendental functions are not included in the APPLE3:CALC 
program. 

The compiler will allow more than 9 segment procedures but 
only 9 will function properly. 

Separate units do not work. 

Erroneous placement of control characters may cause the Editor 
to go out of control, requiring the user to delete text 
in order to recover. 


When compiling using the (*$L+*) option, the compiler may 
damage the contents of the diskette. 

Intrinsic units cannot use non—intrinsic units, 
and vice versa. 

Intrinsic units cannot contain references to files. 


Long integer constants are not implemented. 

The IN function for set inclusion does not always work 
when the first argument is negative or greater than 511. 


A run-time stack overflow crashes the system instead of 
re-initializing. 


This application note has been provided by an Apple Computer ueer. The International Apple Core 
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18. 


The MEMAVAIL function may return incorrect results in some 
cases. 

19- .PUBLIC and .PRIVATE assembler variables may be relocated 
incorrectly at run-time* 

20* There is no way to tell the compiler to allocate all available 
disk space for the code file, so the compiler may run out of 
room for the code file even if sufficient space is available. 

21. The ORB function accepts REAL and pointer arguments even 
though this is incorrect. 

22. Negation of BOOLEAN variables do not turn FALSE to TRUE 
and vice versa. 

23. The compiler allows underscores in an identifier, but 
ignores them. 

24. Functions cannot return STRING values, although this is 
implied in the Apple PASCAL Reference Manual. 

25. Standard PASCAL syntax allows the field list and <variant> 
in a RECORD declaration to be null* The UCSD compiler 

does not allow these items to be empty. 

26. Due to the normal inaccuracies in representing REALs, some 
equalities may not test true. For example, LOG(10) prints 
as 1.00000 but does not yield equality in the comparison 
LOG(10)-1.00000. 

27. Documentation for th SCAN function is incomplete. 

28. The example of MOVERIGHT is incorrect. 

29. The Editor does not report asssembler errors in the same way 
that it reports compiler errors. 

30. The function KEYPRESS exists in Applestuff, but is not 
documented. 

31. Overflowing the code file causes the system to crash in 
various ways. 

32. The Editor informs the user when it is about to run out of 
space for the file buffer, but strange things may happen 
when the file is completely full. 


33. 


The compiler INCLUDE directive does not always work as 
expected. 
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APPEND FIX IN DOS 3.2 (& 3.2.1) 

FROM APPLE COMPUTER CORF. 

The problem with APPEND in DOS 3.2 is that DOS doesn't write an End 
Of File marker on the disk when you chose a file. DOS normally fills 
new sectors with EOF markers, so the newly APPENDed information 
usually has an EOF after the last character. However, when the last 
character of the file falls exactly at the end of a sector, DOS 
doesn't find a new sector to fill with EOF markers. The next time 
EOS does an APPEND it can't find the EOF marker and defaults back to 
the beainnins of the file. 

The fix is to write out an EOF maker before closing the file after 
each write. Here is a five byte routine that will supply an EOF. It 
can be moved to any address if you are already using 768 to 772. 

10 LET W= CHR*(4) 

20 POKE 768,169 
30 POKE 769,0 
40 POKE 770,32 
50 POKE 771,237 
60 POKE 772,253 
70 REH HOW TO USE IT- 
80 PRINT D$! "APPEND FILE” 

90 PRINT D$i 'WRITE FILE" 

100 PRINT "THIS IS DATA" 

110 PRINT "SO IS THIS" 

120 CALL 768: PRINT: REM THI IS IT 
130 PRINT Dt; 'CLOSE FILE"140 END 

NOTE: The PRINT statement in line 120 is a must. 

Using this method, one need never worry about APPEND overwriting the 
start of a file. 


This application note has been provided by an Apple Computer user. The International Apple Cora 
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June 10, 1980 


Dear Member Clubs: 


The enclosed package represents the International Apple Core s first major 
publication of Apnotes. You will find a mix of new and old notes. The 
older ones are reprints based on poor-quality copies which have been dis¬ 
tributed in the past from various sources. This printing covers about one- 
half of the I AC library of reprints. The remainder will be published as 
they are printable. While reprinting old Apnotes, we will continue publish¬ 
ing new ones on as timely a basis as is possible. 

You may have noticed that each Apnote carries a letter and number code. 

These correspond to the codes which the IAC uses for indexing* An index for 
Apnotes published to date is attached. 


There has been considerable confusion over the.IAC address. In addition to 
having our own address each of our officers, directors, and committee members 
has a home address as well. No one knows where to send the mail'. In general 
we prefer to have all mail sent to the IAC Post Office Box.. This includes 
articles or other correspondence for the "Orchard". An efficient distribution 
system has been set up to see that the mail gets quickly routed to the proper 
individual. This way personnel changes and moves won't disrupt our timely 
response. 


A new IAC Special Interest Group is being formed. Larry L. Stoneburner, M.D. 
will organize the Medical SIG. Interested persons can contact Dr. Stoneburner 
by writing the IAC or at 2030 E. 4th Street, #133, Santa Anna, CA. 92705. 

His telephone number is 714-953-9151. 


Regards, 



Joe Budge 
Secretary 


P. O. BOX 976, DALY CITY, CALIFORNIA 94017 USA 
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6. Five Additional characters from the Keyboard 


B. BASICS 

2. Applesoft Hires Routines 

3. Applesoft Array Eraser 

4. Applesoft Hires Screen Function 

5. Generating Tones in Applesoft 

6. Literal Input Routine 

8. Print Using Simulator 

9. Converting Integer Basic Programs to Applesoft 

10. Applesoft Random Numbers 
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8. Adding Features to LISA 
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MODIFYING YOUR APPLE II TO ACCEPT USER FIRMWARE 


There are times when you may want to create your own firmware 
for the Apple II, Such firmware can be tailored to your special 
needs; then installed semi-permanently so that it can be used 
as conveniently as Apple BASIC or the Monitor. 

This application brief details a simple modification which allows 
your Apple II to accept industry standard 2716 (2Kx8-bit) Eraseable 
Read-Only-Memories (EROM's) in sockets 'DO' and 'D8'. These sockets 
correspond to memory addresses D000-DFFF. 

2716 EROM's are readily available through most semiconductor 
distributors. Many distributor locations are equipped to program 
the EROM's to your specifications, and will do so for a moderate fee. 


NOTE: THE ABOVE INFORMATION IS PROVIDED FOR IDE CONVENIENCE OF 
THE SOPHISTICATED OWNER. ANY USER MODIFICATION TO THE APPLE II 
(INCLUDING THIS ONE) VOIDS THE FACTORY WARRANTY, 
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APPLE-II 2716 EROM ADAPTATION INSTRUCTIONS 
('DO 1 and *D8' sockets) 

1. Remove the 1 EO' ROM from its socket. On the to£ side of the 
board, under the 'EO' socket, cut the ROM pin 18 jumper trace. 
Then reinsert the ROM. This cut will isolate pin 18 of ROM 'DO' 
and 1 D8' from pin 18 of the other ROM. Reinsert the 1 EO‘ ROM 
when done. 

'EO' SOCKET 



Cut this trace 


2. On the underside of the APPLE-II board, cut the traces connecting 
pin 20 to 21 of ROMs 'DO' and *D8* only. 

3. (Underside) Cut the trace going to pin 18 of ROM 'D8 1 near 
the chip. Scrape solder resist off of approximately k inch 

of the remaining trace not still connected to pin 18. You may 
wish to tin it with solder since it will later be soldered to. 

4. (Underside) Connect pin 18 of ROM 'D8' to pin 12 of ROM 'EO' 

(ground) 

5. (Underside) Connect pin 18 of ROM 'EO' to the.trace which 
previously went to pin 18 of ROM 1 D8 1 (and which should be 
pretinned if step 3 was followed). 

6. (Underside) Connect pin 21 of ROM ’D8 1 to pin 21 of ROM 'DO'. 
Then connect both of these to pin 24 of either ROM (VCC). 

7. Note that the TNH control function (pin 32 on the APPLE-11 
I/O BUS connectors) will not disable the 2716 EROMs in the 
'DO' and 'D8' ROM slots, since pin 21 is a power supply pin 
and not a chip select input on the EROMs. 

8. 2716 EROM devices may now be used in sockets 'DO' and 'D8'. 
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ADDING COLORS TO APPLE’S HIGH-RESOLUTION 
GRAPHICS HARDWARE 


The Apple II normally provides a choice of black,white, green, or 
violet for hi-resolution graphics. However, the color encoding scheme 
is actually capable of specifying two additional colors: blue and 
orange. This application brief details a simple hardware modification 
which will allow the Apple II to display all six colors. 


NOTE: THE INFORMATION HEREIN IS PROVIDED FOR THE CONVENIENCE OF THE 

SOPHISTICATED OWNER. ANY USER MODIFICATION TO THE APPLE II (INCLUDING 
THIS ONE) VOIDS THE FACTORY WARRANTY. 


1. Remove the Apple II PC board from its enclosure 


(a) Remove the ten (10) screws securing the plastic top piece 
to the metal bottom plate. Six (6) of these are flat-bead 
screws around the perimeter of the bottom plate and four (4) 
are round-head screws located at the front lip of the compu¬ 
ter. All are removed with a phillips-head screwdriver. Do 
not remove the screws securing the power supply or nylon 
insulating standoffs... 

(b) Lift the plastic top piece form the bottom plate while 
taking care not to damage the ribbon cable connecting the 
keyboard to the PC board. This cable will have to be 
disconnected from one or the other. 

(c) Disconnect the power supply from the PC board. 

(d) Remove the £8 nut and lockwasher securing the center of the 
PC board. (These will not be found on the earlier Apple II 
computers. ) 

(e) Carefully disengage each of 6 nylon insulating standoffs 
from the PC board. (7 on earlier versions) 

(f) Lift the PV board from the bottom plate. 


2. Add in the new circuitry 


(a) Lift the following IC pins from their sockets. 

A8-1 A9-1 

A8-6 A9-2 

AS-13 A9-9 
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(b) Mount a 74LS74 (dual C-D,flip-flop) and a 74LS02 (quad NOR 
gate) in the Apple II breadboard area (All to A14 region). 

(c) Wire the following circuit (* indicates that wiring is to 
a pin which is out of its socket). 


(AO-g)* 



3. Reverse step.1 to.reassemble the Apple II 
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APPLESOFT ARRAY ERASER 

100 HOME 
110 VTAB 5 

120 PRINT TAB( 14);"ARRAY ERASER" 

130 COSUB 10000 
1A0 GOSUB 1050 

150 PRINT "HERE ARE THE ARRAYS" 

160 LIST 180 

170 COSUB 1000 

ISO DIM A(100),B(100) 

190 PRINT "AND HERE'S WHAT WE PUT IN THEM" 

200 LIST 220 - 230 

210 COSUB 1000 

220 LET A(100) = 100 

230 LET B(100) « 100 

240 PRINT "OK, LET'S PRINT THEM OUT" 

250 LIST 260 - 270 
260 PRINT B(100) 

270 PRINT A(100) 

280 GOSUB 1000 

290 PRINT "NOW TO ERASE ARRAY 'A'" 

300 LIST 310 
310 CALL 768,A 
320 COSUB 1000 

330 PRINT "OK, NOW LET'S PRINT B(100) TO SHOW" 

340 PRINT : PRINT "THAT IT'S STILL THERE" ' 

350 LIST 360 
-.0 PRINT B(100) 

3/0 GJSJB 1000 

380 PRINT "NOW LET’S TRY TO PRINT A(IOO). THE" 

390 PRINT : PRINT "ERROR WE GET PROVES THAT THE ARRAY IS" 
400 PRINT : PRINT "CONE." 

410 LIST 420 
420 PRINT A(100) 

430 END 


1000 REM 'PRESS ANY...' ROUTINE 
WHO VTAB 23 

1020 PRINT TAB( 9);"PRESS ANY KEY FOR MORE 
1030 HTAiS 20 


1040 

1050 

1060 

1070 

1080 

10000 

10010 

10020 


GET AS 
VTAB 10 
HTAB l 


CALL - 953; REM CLEAR SCREEN 
RETURN 

REM THE 'ERASE' POKER 


FOR J = 760 TO 823: READ K: POKE J,K: NEXT J 
RETURN 


10030 DATA 32,177,0,32,217,247 
10040 DATA 24,160,2,165,155 
10050 DATA 133,66,113,155,133 
luOOO DATA 60,200,165,156,133 
10070 DATA 67,113,155,133,61 
10080 DATA 136,56,165,109,133 
10090 DATA 62,241,155,133,109 
10100 DATA 200,165,110,133,63 
10110 DATA 241,155,133,110,160 
10120 DATA 0,32,44,254,32,163 
10130 DATA 217,76,152,217 
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1000 REM HIRES SCRN FUNCTION 
1010 REM DEMO 

1020 REM 

1030 REM LOAD IN BINARY STUFF 
1040 REM 

1050 FOR J = 768 TO 806: READ K: POKE J,K: NEXT J 

1060 DATA 32,227,223,133,133 

1070 DATA 132,134,169,208,32 

1080 DATA 192,222,165,18,72 

1090 DATA 165,17,72,32,185 

1100 DATA 246,32,17,244,165 

1110 DATA 48,49,38,240,2 

1120 DATA 169,1,168,32,1 

1130 DATA 227,76,91,218 

1140 POKE 1013,76: POKE 1014,0: POKE 1015,3 

1150 REM-- 

1160 REM DRAW SOMETHING 

1170 REM - 

1180 LET HO = 120:VO = 60 

1190 HCR 

1200 HCOLOR= 3 

1210 HPLOT HO,VO * . 

1220 FOR J = 1 TO 10 

1230 HPLOT TO RND (9) * 40 + HO, RND (9) * 40 + VO 
1240 NEXT 
1250 HOME 
1260 VTAB 22 

1270 FOR J = 0 TO 3000: NEXT 

1280 REM... 

1290 REM CONVERT IT TO LORES 

1300 REM - 

1310 CR 

1320 COLOR® 2: FOR V = 0 TO 39: HLIN 0,39 AT V: NEXT 
1330 FOR V = 0 TO 39 
1340 FOR II = 0 TO 39' 


1350 
1360 
1370 
1380 
1390 
14 CO 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 


COLOR® 12: PLOT H,V 

REM- 

REM THIS IS IT !!! 

REM THE SYNTAX IS: 

REM 6A=B,C WHERE 

REM A WILL GET THE 1 OR 0 

REM l!,C IS THE HIRES 

REM COORDINATES AS IN 
REM HPLOT 

REM-- 

f. A = H + HO,V + VO 

COLOR® A * 15 

PLOT H,V 

NEXT 

NEXT 
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10 REM 


20 REM * *• 

30 REM * SIMPLE TONES FOR •* 

40 REM + *• 

50 REM * APPLESOFT II + 
60 REM * *• 

70 REM * J CROSSLEY ■* 

SO REM * *■ 


90 REM ****-»**#********-«-***>4-* 

100 REM 

110 REM THIS IS THE ROUTINE 

120 REM FROM PAGE 45 OF THE 
130* REM 'RED BOOK' MODIFIED 
140 REM FOR APPLESOFT. 

150 REM 

le>0 HOME 

170 LIST - 150 

180 REM 

190 REM INSERT THE FOLLOWING 

200 REM ROUTINE IN YOUR PROGRAM 
210 REM THEN POKE 768, TONE 

220 REM POKE 769, DURATION 

230 REM AND, CALL 770 FOR TONES 

240 REM 

250 FOR I = 770 TO 790 
260 :: READ J 
270 :: POKE I. J 
280 NEXT 

290 DATA 173, 48, 192, 136, 208, 5 
300 DATA 206, 1,3, 240, 9, 202, 208 
310 DATA 245,174,0,3,76,2,3,96 
320 FOR TN = 100 TO 10 STEP - 1 
330 :: POKE 76S,TN: REM TONE 
340 :: POKE 769,10: REM DURATION 
350 :: CALL 770 
360 NEXT 

370 HOME 

3S0 LIST 180,360 
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100 

REM 


PRINT USING 

110 

REM 



120 

REM 


SIMULATOR 

130 

REM 



140 

REM 


AUG 79 

150 

REM 



160 

REM 


J. CR0SSLEY 

170 

REM 



180 

LET N 

= 2: 

REM SET NUMBER 

190 

REM 


OF DECIMALS 

200 

LET S 

= 5: 

REM SET FIELD 

210 

REM 


WIDTH 

220 

HOME 



230 

FOR X 

= - 

5 TO 5 STEP .501 

240 

PRINT 

X,"$” 

? 

250 

GOSUB 

2000 


260 

PRINT 



270 

NEXT X 



280 

PRINT 



290 

PRI NT 

"UNFORMATTED FORMATTED 

300 

END 




1000 REM THIS IS THE FORMATTING 
1010 REM SUBROUTINE. THE INPUT 
1020 REM IS 'X',’N', AND 'S' 

1030 REM X IS THE NUMBER TO BE 
1040 REM BE PRINTED 

1050 REM N IS THE NUMBER OF 

1060 REM DIGITS RIGHT OF 

1070 REM S IS THE WIDTH OF THE 

1080 REM RIGHT JUSTIFIED 

1090 REM PRINTING FIELD 

1100 REM 

2000 X$ = STR? ( INT (X * 10 A N + .5)) 

2010 Q “ LEN (X?) - ( VAL (X?) < 0) 

2020 PRINT SPC( S - Q * (Q > N + 1) - (N + 2) *’(Q < = N + 1)); 

2030 PRINT MID$ (X$,l + ( VAL (X?) < 0),(Q < = N) + (Q - N) * (Q > N)) 

f 

2040 PRINT MID? ("0.00",1 + ((N + 1) < Q),1 + (N - Q + 2) * (Q < N + 2) 

); 

2050 PRINT RIGHT? (X?,N * (Q > N) + (Q - 1) * (Q < = N)); 

2060 RETURN 
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CONVERTING INTEGER BASIC PROGRAMS TO APPLESOFT 


Page 76 of the DOS 3.2 Reference Manual contains a routine which can 
be used to convert Integer Basic programs to Applesoft using the disk 
system. Integer Basic is required for the first step of the 
conversion only. 

First, load in the Integer program. Add the routine on page 76 at the 
very beginning of the program, adjust the LIST line for the specific 
program, and give the textfile a unique name. Then type "RUN”. This 
will cause the program to be listed out to the disk as a textfile 
under the name specified. At this point, the text file is independent 
of the language. 

To convert, type "EXEC <your filename>" in Applesoft. The textfile 
will be read into the system as if typed from the keyboard. Since 
Applesoft does not check syntax at input time, the Integer syntax is 
accepted, although the program may not run. Save the program in 
Applesoft as usual. 

Micro Magazine, January 1980, contains an article describing Integer 
to Applesoft conversion using cassette instead of disk. The article 
also describes some of the syntax and logic changes that will usually J 
have to be made. 
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APPLESOFT RANDOM NUMBERS 


The Applesoft random number generator, like all such routines, is only 
a pseudo-random generator, so non-random patterns will eventually 
occur* The frequency of repetition of these patterns will vary from 
procedure to procedure. Proper re—seeding of the random number 
generator during a program will help prevent the appearance of large 
repeating sequences* This can be done in two ways, and for best 
results, both should be used* 

1. Seed the random number calculation at the beginning of the 
program, using the keyboard count location. This will take the form 

S = PEEK(78) + PEEK(79)*256 
X = RND(-S) 

2. Within the random generating portion of the program, insert a 
statement of the form Z = RND(-RND(9)), which will begin a new random 
sequence. (See page 102 of the Applesoft Reference Manual.) 

Please be aware that no method will completely eliminate patterns in 
the random numbers generated, but we can break up the sequences so 
that objectional non-random patterns are less likely to appear. 
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OUT OF MEMORY ERRORS 


There are cwo ways to get an 'OUT OF MEMORY ERROR' in Applesoft. 

The most obvious cause is to have a program that is too big or uses 
too many variables. The only solution in this case is to trim down 
the program, keep the data on a disk, chain the program in from the 
disk in segments, or upgrade your system to 48K. 

The less obvious cause is stack overflow. This is easy to spot 
because after getting the OUT OF MEMORY error, PRINT FRE(O) tells 
you that there is still free memory and, since the error clears the 
stack, everything else seems normal. The problem is that Applesoft 
uses the 6502 stack to save it's recursive subroutine calls and the 
stack is a limited resource. Here are some causes: 

* Too many levels of FOR-NEXT loop 

* Too many levels of GOSUB 

* Excessively complex mathematical or string formulas 

* GOSUBs with no RETURN 

* Improper recovery in ONERR GOTO routines 

* CALLs or interrupts that don't restore the stack properly 

NOTE: THESE EFFECTS ARE CUMULATIVE. You might be affected by more 
than just one. 

The first four are inherent in your program structure. If your 
program is cleanly structured then these probably won't cause 
trouble. 

If you are using ONERR C0T0 you should carefully examine pages 8i, 

82, and 136 of the Applesoft Reference manual. There are two 
correct ways to leave an ONERR routine. You can use RESUME which 
takes care of the stack and re-executes the statement that caused 
the. error or you can use the stack recovery routine on pages 82 and 
136 (the example on page 136 is easier to use) before you do a GOTO 
to a line number. Beware, this recovery routine docs not clear any 
COSUBs or FOR...NEXT loops! 

When Applesoft executes a CALL, it does a 6502 JSR to the specified 
address. It's up to you to pull off anything you pushed on the 
stack before the RTS. Likewise the routine to handle an interrupt 
from a peripheral card must restore the stack and the registers. 

A very large, complex program may be forced into a stack overflow 
condition by the user's responses. CALL 5491S will clear the stack 
without hurting the variables, but it wipes out all pending FOR-NEXT 
loops, GOSUBs and formulas. This allows a program controlled 
^^s^art. Beware, this is no substitute for good programming 
practices but a way to recover when a program exceeds the Apple's 
capibilitics. 
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VTAB AND HOME CONVERTER FOR THE M & R SUP-R-TERMINAL 

BY DAN SOKEL 

Hello is the logon program and it spells out the limitations of the converter 

i 

10 REM DOCUMENTATION 
20 D$= CHR$(4) 

30 PRINT 0$;"PR#3" 

40 PRINT D$;"MAXFILES 5":PRINT:PRINT D$ 

50 PRINT CHR$(140) 

60 PRINT "This program converts VTAB statements in APPLESOFT PROGRAMS 
70 PRINT "to the correct CTRL-SHIFT-N sequence for use with the M & R" 

80 PRINT "Enterprises SUP-R-TERMINAL board." 

90 PRINT 

100 PRINT "The following limitations must be observed-" 

110 PRINT "1. The program to be converted MUST be APPLESOFT." 

120 PRINT "2. The program must be on this disk." 

130 PRINT "3. The program cannot have any line numbers above 32749." 

140 PRINT "4. There must be room on this disk for 2 ASCII copies of 

the program." 

150 PRINT 

160 PRINT "The conversion is not very fast-but it works." 

170 PRINT "After the conversion is complete the new program is 
in memory." 

180 PRINT "IT IS UP TO YOU TO SAVE IT — Don.t forget." 

190 PRINT 

200 PRINT "Type return if you are ready to convert, space to exit." 

210 GET A$ 

220 D$ = CHR$(4): PRINT 

230 IF A$= CHR$C13) THEN PRINT D$;"RUN FIXVTABS" 

240 END 

FIXVATABS is the starting point for converting - RUN FIXVTABS OR HELLO 

10 D$= CH RS C4) 

20 PRINT D$;"OPEN TEMP" 

30 PRINT 0$;"DELETE TEMP" 

40 PRINT "ENTER NAME OF PROGRAM TO BE CONVERTEDINPUT A$ 

50 PRINT D$;"NOMON C,I,0" 

60 PRINT D$; "EXEC XFERT0TEXT" 

70 END 
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X FERTOTEXT is A TEXTFILE and contains the following data: 

PRINT 0$;"LOAD ";A$ 

32750 D$=CHR$(4) 

32751 PRINT D$;"OPEN TEMP" 

32752 PRINT D$;"DELETE TEMP" 

32753 PRINT D$;"OPEN TEMP" 

32754 PRINT D$;"WRITE TEMP" 

32755 PRINT LIST 0-32749 

32756 PRINT CHR$(27) +CHRS(27) +CHR$ +CHR$(27) 

32757 PRINT D$;"CL0SE TEMP" 

RUN 32750 

RUN CONVERT 

CONVERT does the work - here.s how: 

10 D$=CHR$(4) 

20 PRINT D$; "NOMON C,I,0" 

30 PRINT D$ ;"OPEN NEWPROG" 

40 PRINT D$;"DELETE NEWPROG" 

50 PRINT D$ ;"OPEN NEWPROG" 

60 PRINT D$;"OPEN TEMP" 

70 PRINT D$;"READ TEMP" 

80 GET A$ 

90 C$=C$ + A$ 

100 IF MID$ (C$,2,3) = CHR$(27)+CHR$(27) + CHR$(27) THEN GOTO 340 
110 IF A$ < > CHR$ (13) THEN GOTO 80 
120 FOR I = 1 TO LEN (C$) 

130 IF MID$ (C$,I,4)="VTAB" THEN GOSUB 200 

|140 IF MI D$ (C$,I,4) = "H0ME" THEN GOSUB 400 

r 1 50 IF MI D$ (C$,1,10) = "CALL-936" THEN GOSUB 380 

160 B$=B$ + MID$ (C$,I,1) 

170 NEXT I 

180 PRINT D$:PRINT D$;"WRITE NEWPROG": PRINT B$ 

190 B$=" ":C$ = " ": GOTO 70 
200 REM CONVERT VTABS HERE 
210 P=0 

220 X$="PRINT CHR$(158)+CHR$ (32+POS(0)) + CHR$(32+" 

230 I = I +4 
240 B$=B$ + X$ 

250 FOR K = I TO LEN (C$) 

260 IF MID$(C$,K,1) = CHR$(13) THEN GOTO 300 

270 IF MID$(C$,K1) < > ":" THEN B$=B$+MID$ (C$,K,1): P=P+1 

280 IF MID$(C$,K,1)=":" THEN GOTO 300 

290 NEXT K 

300 1= I + P 

310 8$=B$ + ");" 

320 PRINT D$: PRINT "***** FOUND VTAB *****"• 

330 RETURN 
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340 PRINT D$;"CLOSE" 

350 TEXT 

360 PRINT D$;"EXEC TEXTOPROG" 

370 END 

380 REM FOUND CALL -936 

390 1= I + 6 

400 REM FOUND HOME 

410 1=1+4 

420 X$="P RINT CHR$(140);" 

430 B$= B$ + X$ 

440 PRINT D$;: PRINT "***+* FOUND HOME *****"; 
450 RETURN 


Lastly, the textile TEXTOPROG recreates the program in memory 
NEW 

D$ = CHR$(4) 

PRINT D$; "EXEC NEWPROG" 


B12-3 





INTERNATIONAL 
APPLE CORE 

P. O. BOX 976, DALY CITY, CALIFORNIA 94017 USA 


A PHOT 


MODIFYING TIIE LISA ASSEMBLER 
TO HANDLE USER ROUTINES 

Randall Hyde April 7, 1980 


If you enjoy your privacy, one of the worst things you can do is 
write a piece of systems software and market it. For every little bug 
(or "feature" as I prefer to call them), you're pretty much guaranteed 
ten phone calls and 100 letters. Having authored the LISA interactive 
assembler, I can say from experience that the support required of a 
high level product is tremendous. I doubt that the royalties received 
for my product have come anywhere near paying me back for the time 
spent creating and improving it. Now don't get me wrong, I enjoy what 
I am doing. Writing (and improving) LISA was strictly a hobby under¬ 
taking, and I certainly don't mind the chance to talk to fellow Apple 
owners across the nation. But nevertheless, as the old saying goes, • 
you can't please all of the people all of the time. No matter what 
neat new feature a person adds to a product, there will always be some¬ 
one who desires something additional. This has been expecially true 
for the LISA assembler since the first day it was released. Most 
requests for changes to LISA have been quite reasonble and, in fact, 
have been implimented. Some requests, however, are of such limited 
use that they did not warrant inclusion into LISA. LISA is big enough 
as it is. There is really no need to make it gigantic just to satisfy 
everyone. The purpose of this article is to describe how to modity 
LISA so that special purpose functions may be included. I will assume 
that you are"using LISA VI.5D, but this discussion applies to version 
1.5C and to a limited extent to LISA version 2.0 as well. 

Before describing how to "customize" LISA, the reader must first 
have an understanding of the internal structure of LISA: both in terms 
of the internal workings and an understanding of how source code is 
stored in memory. An understanding of the source code format for LISA 
is required in order to write routines which search out labels and per^- 
form other related functions. An understanding of the internal workings 
of LISA is required in order to patch into it to make the desired 
changes. 

Internally, LISA consists of five modules. A command interpreter 
reads a line of text and performs the desired task. A collection of 
routines perform the LIST, DELETE, MODIFY, WRITE, etc., commands. A 
third section of LISA Inputs a line of code, checks for proper syntax, 
and then tokenizes the code. The fourth section is the actual . 
assembler which converts the source code to object code. The fifth 
section is an I/O executive which handles all I/O in LISA. 
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The most important module to discuss is the I/O module. Since 
without I/O, nothing else can be performed. LISA's I/O drivers are an 
enhancement over those provided by the Apple monitor. For our pur¬ 
poses, two things must be considered when using LISA's I/O. First, 
all characters are converted to normal ASCII format. That is, the 
high order bit of each character is turned off. Second, the line in¬ 
put routine stores its data starting at location $300, instead of $200, 
as is the case with the Apple monitor routine. This is due to the 
fact that Apple DOS uses page two for collecting DOS commands and as 
such it would often wipe out an input line. Lines of text in LISA can 
be used when writing your own commands for the LISA command interpreter. 
The internal format for a LISA source statement if described in suf¬ 
ficient detail in the LISA documentation manual, so I will not repeat 
its description here. 

So, how does one interface to the LISA command interpreter? Well, 
when designing LISA I realized that there was no way that I could for- 
see what types of peripherals would be used with the LISA assembler. 

So I incorporated a user defineable function for purposes of invoking 
user defined printer interfaces etc. Now it just so happens that this 
user defineable function can be used to impliment other user defined 
functions as well as printer drivers. The remainder of this article 
is dedicated to exploring this particular aspect of LISA. 

In most of the letters I've received asking for additional feat¬ 
ures, the two features requested the most were the ability to execute 
Apple monitor commands directly from the LISA command interpreter 
("just like the SC-Assembler II" more than one user has mentioned-was 
that a threat?!!) and the ability to run machine language programs 
directly from LISA. Despite the large number of users requesting these 
additions I have not incorporated these features for two very good 
(I feel) reasons. In the former case, I feel it's just as easy to hit 
the reset key to get into the Apple monitor as it is to type some 
special symbol such as "$" (as with the Apple mini-assembler) in order 
to perform an Apple monitor command. The latter request - allowing 
the user to execute a machine language program directly from LISA and 
then return to LISA is somewhat dangerous. Many user programs use some 
of the zero page locations where important pointers are kept. By 
allowing the user to run a program directly from LISA it allows the 
programmer to get lazy and not save the program onto disk before run¬ 
ning it. Forcing the user to press reset, or use the LISA "BRK" com- 
mant makes them think twice before destroying possible pointers. 

Nevertheless, there are several folks out there who tell me all 
the time "Give me the rope; if I hang myself it will be my own fault." 
Who can argue with that? As such the following LISA auxiliary program 
was born. This short little program, which resides from location 
$6F00 to $6FFF, impliments the previously described functions (Apple 
monitor commands and the ability to run a program from LISA) as well 
as leaving room open for user defineable routines. Its useage revolves 
around the control-P user function in LISA. Briefly, a jump to sub¬ 
routine is made to location $7009 whenever the first non-blank charac¬ 
ter on a line is a control-P. Normally at location $7009 is a jump 
back to the LISA command processor. By writing over the jump address 
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with a user defined address, it is possible to direct program flow to 
a routine to perform additional functions. Therein lies the method of 
expanding LISA in a manner decided upon by the user. 

The only problem remaining is where does this user defined routine 
go? Under normal circumstances, LISA uses up (for all practical 
purposes) all of the available space in a 48K machine. Once again, 
LISA's flexibility allows the user to reserve some memory for his own 
use. In a normal LISA system, locations $1800 through $5800 are 
reserved for textfile storage, locations $5800 through $6FFF are 
reserved for Symbol table useage and locations $7000 through $BFFF are 
reserved for LISA and DOS. Locations $7022 & $7023 in LISA contain 
the last address available for symbol table useage. Normally, these 
two bytes contain the value $6FF7. By changing this to $6EFO, it is 
possible to reserve the memory space from location $6FOO through $6FFF 
for use by the user routine. Setting up this address, as well as 
modifying the USRJMP address in LISA is handled in lines 30 - 41 of 
the following routine. By simply BRUNing the routine which follows, 
not only will it be loaded into memory properly, but it will also 
protect itself from being walked on by LISA, as well as setting up the 
correct jump vectors. 

At line 77 is the beginning of the routine which is called when 
the control-P command is detected. Now whenever the program gets to 
this point, the 6502 Y register contains an index into page three 
which points at the control-P character. By incrementing the Y 
register by one, the Y register will point to the next available 
character in the LISA input buffer. At line 65 the subroutine BLKDEL 
is called. This routine increments the Y register as long as it is 
pDinting at a blank character. This allows interleaving blanks to be 
typed in without causing any problems. Upon return from BLKDEL, the 
6502 accumulator contains the first non-blank character detected. At 
this point, we can compare this character with several "test" charac¬ 
ters to determine which routine we wish to execute. In this program, 
any line beginning with a "$" means that the following text is to be 
interpreted as an Apple monitor command. If the line begins with an 
"R" then the program runs the code at the address (symbolic or non- 
symbolic) specified in the following address expression. 

Beginning at line 95 is the code to handle the Apple monitor 
command request. First the Y index register is incremented by one so 
that it points to the first character past the "$". Next, this code 
is OR'd with $80 to convert it to a form acceptable by the Apple 
monitor and stored into page two. Finally the monitor command is 
executed by executing the "FAKEMON" code found in the Apple mini¬ 
assembler. 

At line 145, the RUN command is checked for. If the first non¬ 
blank character after the control-P is an "R", then FNDBLK is used to 
find the next blank on the line. Once this is accomplished, the 
following blanks are skipped over with a call to BLKDEL. Finally, 
after some initial setup, GETADR is called and looks up the address on 
the remainder of the line. Any valid LISA address is allowed, as are 
symbolic references. If the address is not found, then an error is 
reported, and the user is returned to LISA. Otherwise the code at the 
address specified by the user is executed. 






If the first non-blank character on a line is neither a "$" nor an 
"R" then this routine drops down to USRCMD which simply returns to LISA. 
If you wish to incorporate your own commands into LISA you may add them 
at this point. Just keep in mind that there are only 64 bytes left 
before $7000 gets clobbered, so you may have to re-ORG this routine. 

To wrap things up, it would be wise to give a few examples of how 
to use this auxiliary routine since this article did not provide a very 
good description. 


TO EXECUTE AN APPLE MONITOR COMMAND FROM LISA: 
SYNTAX: (control-P) $ (and Apple monitor command) 

EXAMPLES: 


(control-P) $800L 
(control-P) $800G 
(control-P $7F8:00 

TO RUN A PROGRAM FROM THE LISA COMMAND LEVEL: 
SYNTAX: (control-P) R (address expression) 


Note: At least one blank must appear between the "R" and the 

address expression. 


(control-P) 

(control-P) 

(control-P) 


R START 
R START+3 
R $800 


Obviously, any user command has its own syntax. 


Hopefully these examples have demonstrated how one may easily 
modify LISA and incorporate any special command you so desire. With a 
little work, it is possible to write label search routines, special 
driver routines, etc. The implimentation of these functions will be 
left to the reader. 






£>F 00 

1 

□RG $6F00 


6FOO 

2 

i APPLE MONITOR EQUATES 


6FO0 

3 

* 

f 


6F00 

4 

GETNUM EQU $FFA7 


6F00 

5 

TOSUB FQU $FFB£ 


6F00 

6 

ZMODF EQU $FFC7 


6 FOO 

7 

CHRTBL EQU $FFCC 


6F00 

a 

BL1 EQU 4FE0O 


6F00 

9 

PAGF 2 FQU $200 


6F00 

10 

* 

r 


6F00 

11 

YSAV EPZ $34 


6F0C> 

12 

MODE EPZ $31 


6 FOO 

13 

A 

T 


6F0C> 

14 

i LISA EQUATES 


6 FOO 

15 

7 


6F00 

16 

USRJMP EQU $7009 

JUSER FUNCTION JMP ADDRESS 

6F00 

17 

SYF .ND EQU $7022 

;ADDRESS OF END-OF-SYMBOL TABLE 

6F0C> 

18 

GETADR EQU $83BV 

> LISA ADDRESS EPRESSION ANALIZFR 

6F00 

19 

PRINT EQU $7883 

r LISA PF(NT ROUTINE 

6F00 

20 

SYMAJlR EPZ $83 

;ADDRS IS RETURNED HERE. 

6F00 

21 

ADRF 4D EPZ !>8F 

>$40 RETURNED IF ADDRESS FOUND 

6F00 

22 

F'NTR EPZ $6A 

i POINTER TO ADDRESS EXPRESSION 

6 FOO 

23 

4 

1 


6F00 

24 

INPUT EQU $300 

i LISA INPUT LINE BUFFER 

6F f '*0 

25 

* 

7 


»F00 

26 

4 

7 


•FOO 

27 

k 

r 


6F00 

28 

t 


6F00 

29 

It ibTALLAT CON SECTION. 


6,FOO 

30 

A 

J 


6F 00 

31 

i BY BRUNNING THIS PROGRAM. 

IT WILL AUTO- 

6FOO 

32 

i INSTALL ITSEL1 AND SET UP 

THE I.ISA 

6F00 

33 

f POINTERS SO THAT IT WILL 

NOT GET 

/.FOO 

34 

f WALKED UPON 


6 FOO 

35 

4 

7 


OF 00 

36 

INSTALL 


6 FOO 

37 

A 

J 


6F00 A96E 

38 

LDA 4$6I 

i INIT H.O. BYTE OF MAXIMUM SYMB01 

6Fo2 an >'370 

39 

STA SYMENDht 

t TABLE ADDRF3S 

6F05 A9F0 

40 

LDA «$FC) 

t INIT L.O. BYTE OF MAXIMUM SYMBOI 

6F07 8D O? 70 

41 

STA SYMEND 

t TABLE ADDRS 

6F0A 

42 

4 

7 


6F0A 

43 

t THE FOLLOWING PUOE SETS UP THE END-OF-SYMBOL 

6F0A 

44 

; TABLE POINTER SO THAT THE 

SYMBOI. 

6F0A 

45 

} TABLE DOES NOT WIPE OUT THESE ROUTINES 

AFC) A 

46 

4 

7 


6F OA A915 

47 

L.DA ttSTART 


6F0P 8D0A7O 

48 

STA IJSRJMP+J 


6FoF A96F 

49 

LDA /START 


6F13 f‘.DOB?1 

50 

STA llSRJMP+7 


|SF14 60 

51 

RTS 


F 6F15 

52 

4 

r 


6F15 

53 

4 

7 


6F15 

54 

4 

7 
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6F15 


55 

r 

AF15 


5 A 

• 4 

r f 

6F15 


57 

; THIS RQU1INE* Wl IE 

6F15 


58 

i WILL DO SEVERAL Tl 

6F15 


59 

7 

WjFI 5 


AO 

i 1) If the CONTROL- 

®6Ft5 


A1 

,* remaining data 

6FI 5 


A2 

} APPLE II Monitor < 

6 FI 5 


A3 

} If the CONTROL- 

AF15 


A4 

then the rest of 

AF15 


A5 

i an address exprr-s 

6F15 


AA 

t at that address i 

6F15 


A 7 

) Note* If symbolic 

AF15 


A8 

; then this c 

AFl5 


A9 

; used after 

AF15 


70 

A 

t 

AFl5 


71 

4 

7 

AF15 


72 

i If none of these 

6F15 


73 

; branch to a user 

6F15 


74 

; is made. 

AF15 


75 

7 

AF15 


76 

« 

t 

6F15 


77 

START*, 

6F15 


78 

4 

r 

6F15 

D8 

79 

CLD 

AF16 


ao 

4 

7 

AF16 


81 

; AT THIS POINT* ‘tH 

AF1A 


82 

; AN INDEX INTO THE 

6F1A 


33 

# CURRENTLY POINTS 

6F1A 


84 

* 

f 

; F i A 

ca 

35 

INY 

•FI? 

20AA?F 

86 

JSR DLKDHL 

uF. 1 A 

CA '4 

87 

I MP *- * fc' 

AF1L 

11047 

aa 

BNI TSTLUN 

6FJE 


89 

4 

/ 

AF11 


90 

; IF SO* TRANSFER F 

AFX li 


91 

} TO THE APPLE INI 1 

AF1F 


92 

f TO APPLE ASC3i CC 

AF 1 E 


93 

7 

AF11 


94 

1 

AF IE 

ca 

95 

INY 

i AF IF 

A200 

9A 

LDX #0 

6F21 


97 

<*4 

CL 

r~\ 

o 

J 

AF21 

H90003 

98 

LDA INPUT*Y 

6F24 

09 AO 

99 

ora *nao 

i AF2A 

9D0002 

100 

STA PAGE 2*X 

AF29 

CF AD 

101 

CMP m4i8D 

AF2B 

F004 

J 02 

BEQ LPXIT 

! AF' } D 

ES 

J 03 

I NX 

I AF2E 

ca 

104 

INY 

i AF2F 

DOFO 

1.05 

BNE LOOP 

AF31 


106 

4 

r 

AF31 

AOOO 

107 

LP? L f LDY i*0 

AF33 

4C3BAF 

108 

JMP FAKMON 

AFUA 


109 

7 

AF3A 


110 

i 

jFMA 


ill 

t SIMULATE APPLE M 

:>F3A 


112 

; THIS CODE WAS FT 

AFSA 


1 1.3 

; 1 INI ASSEMBLER. 

AF36 


114 

7 

i AF3A 


J 15 

4 

r 


is followed to* a then the 

t ! he line will be treated as an 


.ind the routine 


;MOVE TO THE NEXT CHARACTER 
i DI LETK ALL LEADING BLANKS 
; IS 1*1 IE NEXT NON- 3LAI K A "$"? 
i GO TO TFST FOR RUN ROUTINE 


;MOVE past THE "* m 
;SET UP INDEX INTO PAGE TWO. 

;GET DATA FROM LISA INPUT BUFFER 
}CONVERT TO APPLE'S BRAND OF ASC! 
{SAVE IN APPLE INPUT BUFFER 
;giitT WHEN RETURN IS FOUND 


;SET UP INDEX FOR APPLE MONITOR. 


n q _£ 








6F36 

20BEFF 

116 

FKMN3 

JSR 

TOSUB 

6F39 

A 42 4 

117 


LDY 

YSAV 

6F3B 


118 

* 

* 



6 FSB 

20A/FF 

119 

FAKRON 

JSR 

GETNUM 

6F3L 

.4434 

120 


STY 

YSAV 

6F*' 0 

AO 17 

121 


LDY 

»*17 

6F42 


122 

* 

7 



6F42 

88 

123 

FI.MM2 

BEY 


6F43 

3012 

124 


BMI 

RESE1 1 

6F45 

D9( ' :FF 

125 


CMP 

CHRTBL;Y 

6F48 

H0F8 

126 


BNE 

FKMN2 

6F4A 

CO:. 5 

127 


CPY 

»*15 

6F4C 

DOES 

128 


BNE 

FKMN3 

6F4E 

A 5 31 

129 


LDA 

MODE 

6F50 

/iOOO 

130 


LDY 

4*0 

6F52 

C<.-24 

131 


DEC 

YSAV 

6F54 

20001 l 

132 


JSR 

BL1 

6F57 


133 

4 

7 



6F57 

A98D 

134 

RE SI TZ 

LDA 

4*$8D 

6F59 

201 "ID 

J 35 


JSR 

$FDED 

6F5C 

V0ED1 Li 

136 


JSR 

*FDF D 

6F5F 

60 

137 


RTS 


6F60 


138 

* 

7 

i 


6F60 


139 

4 

/ 



6F60 


140 

* 

t 



6F60 


141 

4 

r 



6F60 


142 

i TEST 

FOR 

RUN COMMAND ROUTINE. 

6F60 


143 

7 



6F60 


144 

4 

7 



6F60 


145 

TSTf : JN 

* 


6F60 


146 

4 

7 



6F60 

C9"»2 

147 


CMP 

#' R' 

6F6? 

0041 

148 


BNE 

USRCHD 

6F64 


149 

4 

7 



6F64 


150 

* SKIP 

OVER ALL NON-BLANK CHARS 

6F64 


151 

7 



6F6<-1 

20B161 

152 


JSR 

FNDBLK 

6F6/ 


153 

i 

7 



6F67 


154 

i NOW 

DELETE ALL FURTHUR BLANK CHARS 

6F67 


155 

4 

7 



6F 67 

20A66F 

156 


JSR 

BLKIIE L 

6F6A 


157 

4 

r 



6F6A 


158 

4 

7 



6F6A 

A900 

159 


LDA 

#INPUT i SET UP PNTR WITH 

6F6C 

8 56A 

160 


STA 

PNTR i THE ADDRESS OF INPUT 

6F6E 

A903 

1.61 


LDA 

/INPUT .DATA. 

6F70 

856B 

162 


STA 

PNTR+1 

6F72 


163 

4 

7 



6F72 


164 

4 

7 



6F72 

201: >03 

165 


JSR 

GETADR ;ANALIZE ADDRESS EXPRESSION 

6F75 

248F 

166 


BIT 

ADRFND ISEF IF ADDRESS WAS FOUND 

6F 7 7 

7023 

167 


BVS 

RUN1 JlF NOT> QUIT GRACEFULLY 

6F7 9 

208378 

168 


JSR 

PRINT 

6F7C 

ODOD 

.1 69 


HEX 

MOOD 

6F7E 

i:9CCCC 

170 


ASC 

“ILLEGAL ADDRESS EXPRESSION" 

6F81 

CSC7Cl 





6F84 

CCA0C1 





6FD7 

C4C4D2 





6F8A 

C‘5D3U3 





6F8D 

A0U508 





6F90 

U0D2f:b 
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6F93 

D3D3C9 



6F96 

OFCE 



6F93 

OB' BOO 

171 

HEX ODODOO 

6F9B 

AO 

172 

RTS 

6F9C 


173 

* 

6F9C 


174 

A 

r 

6F9C 


175 

} ADDRESS EXPRESSION WAS VALID, SO 

6F9C 


176 

? GO TO THAT ADDRESS AND FXECUTE 

6F9C 


177 

4 

7 

6F9C 

20A26F 

178 

RUN! JSR JSR1ND 

6F9F 

4C0370 

179 

JMP $7003 

6FA2 


180 

a 

f 

6FA2 

60.3100 

181 

JSRIND JMP (SYMAOR) 

6FA 5 


182 

A 

I 

6FA5 


J 83 

A 

7 

6FA5 


184 

A 

r 

6FA5 


185 

i ADDITIONAL USER STUFF CAN GO HERE 

6FA5 


186 

I 

6FA5 

60 

187 

USRCMD RTS 

6FA6 


188 

4 

t 

6FA6 


189 

4 

t 

6FA6 


190 


6FA6 


191 

} BJ.kDEL- DELETES ALL LEADING BLANKS 

6FA6 


192 

4 

7 

6FA6 

B9 1 V <u3 

193 

BLI DEL LDA INPUT,Y 

6FAV 

0920 

194 

CMP U' ' 

6FAB 

DO 03 

195 

BNE BLKXIT 

6FAH 

CQ 

196 

INY 

6FnE 

DO 1*6 

197 

BNE BLKDEL 

6FB0 


198 

? 

6FB0 

60 

199 

BLKXIT RTS 

6FBJ 


200 

7 

6FB1 


201 

4 

t 

6FB1 


202 

i FNDBLK- FINDS THE NEXT BLANK CHARACTER 

6FB1 


203 

7 

6FB1 


204 

FNDBLK; 

6FB1 


205 

4 

1 

6FBJ 

FI90003 

206 

LDA INPUT,Y 

6F04 

C920 

207 

CMP *' ' 

6FB6 

1*007 

208 

BEG INDXIT 

6FB8 

C90D 

209 

CMP *$D 

6FBA 

T003 

210 

BEQ FNDXJT 

6FBC 

CS 

211 

INY 

6FBD 

M0F2 

212 

BNE FNDBLK 

6FBF 


213 

4 

r 

6FBF 

60 

214 

FNDX1T RTS 

6FC0 


215 

7 



216 

END 


***** END OF ASSEMBLY 
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**********•«•■)<••)(•**********•»* 

* * 

* SYMBOL TABU" -- V 1.5 * 

•* * 

*********•)(•**•)(■■♦(•■>(*******•»<** 

LAB PL. LOG. LABEL, LOG, LABEL. LUC, 


** ZERO PAGE VARIABLES; 

YSAV 0034 CODE 0031 SYMADR nOfil ADkFND OO0F PNTR 006A 
** ABSOLUTE VARABLES/LABELS 


3ETNIJM E FA7 
TOSIII ffbi: 
SYf .MB »)22 
LOOP 6F21 
TS1 *:IJN AE60 
FNDBl.tf 6FBJ 


ZMODE FFC7 
C- I* A DR 3 39 
LF'XIT 6F3J 
SJUN1 7C 
FNDXIT 6FBF 


CHRTBL FFCC 
PRJMT ; S3 
FKMN3 6F30 
JSF.'tND 6i-'A2 


BL1 FEOO 
Ii-il-IJT 0200 
FAKI10N 6F3B 
USF'GMB 61"A 5 


PAGE2 0200 
INSTAL 6F00 
FKMN2 6F42 
BLKDEL 6FA6 


USRJMP 7009 
START 6F1 
RESETZ 6F5 
BLKXIT 6FB0 


SYMBOL TABLE STARTING ADDRESS;6000 
SYMBOL TABLE LENGTH; 0112 


nfi-q 


cn 






INTERNATIONAL 
APPLE CORE 

P. O. BOX 976, DALY CITY, CALIFORNIA 94017 USA 


ftPNOt 


PROGRAMMA International, Inc. 

THIS ADDENDUM SUPPLEMENTS INTEGER BASIC/MACHINE 
LANGUAGE SOFTWARE DOCUMENTATION 


How about saving the program on the supplied 
cassette onto disk? It's actually very simple to 
do if you follow these instructions carefully: 

1) Type in the machine language program (on page 2) 
beginning at hexadecimal address $1100. 

NOTES: 

A) Simply type the numbers. The disassembled 
listing with comments is to assist you. 

B) Any value can be substituted for ?? for 
now as it will be changed in step 3* 

C) The routine can be found at the beginning 
of appropriate programs in the DEALER DEMO 
PACK. 

2) Load in the program from cassette beginning at 
address $1200. For example, if the normal load 
is "200.20Q0R", then load it »1200.3000R". 

3) Now take the high byte of the ending address of 
the normal load (i.e. $20 for $2000, $40 for 
$4000) and add $0F to it ($2F, $4F...). Place 
this value into memory location $11 IF. 

4) BSAVE the appropriate region of memory: 

(A$1100, L$xx00 where xx=1F, 3F...) 

5) If there are any more programs you wish to store 
onto disk, repeat steps 2 thru 4. 

6) To execute a program, simply type "BRUN filename" 
and press return. 


This application note has been provided by an Apple Computer user. The I n ter nation a) Apple Core does not guarantee the accuracy of this In¬ 
formation In any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core Is a non-profit or- '• 
ganlzatfon unaffllliated with Apple Computer, Inc. or any other manufacturer. Apple 11, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 
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SUMMARY TABLE: 


! NORM LOAD ! 

NEW LOAD 

! HI 

! +0F ! 

L$ 

! SYS ! 

! 200.2000R 1 

1200.3000R 

! 20 

! 2F ! 

1F00 

! 24K ! 

! 200.4000R ! 

! 1200.5000R 

! 40 

! 4F ! 

3F00 

! 32K ! 

! 200.6000R ! 

1200.7000R 

! 60 

! 6F ! 

5F00 

! 48K ! 

! 200.8000R ! 

: ^200.9000R 

! 80 

! 8F ! 

7F00 

! 48K ! 


Here is the Machine Language program: 


1100- 

20 

84 

FE 

JSR 

$FE84 

1103- 

20 

2F 

FB 

JSR 

$FB2r 

1106- 

20 

S3 

FE 

JSR 

$FE93 

1109- 

20 

89 

FE 

JSR 

$FE89 

1 10C- 

A9 

00 


LDA 

#$00 

1 10E— 

85 

3C 


STA 

$3C 

1 1 lO- 

85 

42 


STA 

$42 

ll 12- 

A9 

12 


LDA 

#$12 

1114- 

85 

3D 


STA 

$3D 

1 116- 

A9 

02 


LDA 

# $02 

1118 - 

85 

43 


STA 

$43 

111A- 

A9 

FF 


LDA 

■7$FF 

111C- 

85 

3E 


STA 

$3E 

1 1 ’E- 

A9 

?? 


LDA 

//$?? 

1 120- 

85 

3F 


STA 

$3F 

1122- 

AO 

00 


LDY 

#$00 

1124- 

A9 

02 


LDA 

#$02 

1126- 

48 



PHA 


1127- 

A9 

IF 


LDA 

# $ 1 F 

1129- 

48 



PHA 


1 1 2 A - 

4C 

2C 

FE 

JMP 

$FE2C 


SET NORMAL VIDEO 
SET TEXT FULL WINDOW 
SIMULATE PR#0 (COUT) 
SIMULATE IN#0 (KEYIN) 

FROM LO ADDR 
TARGET LO ADDR 

FROM HI ADDR 

TARGET HI ADDR 

TO LO ADDR 

MAKE XX+$OF OPERAND 

TO HI ADDR 

BY PUSHING $02 & $1F 
ONTO THE STACK, WE SET 
UP A PSEUDO RTS ADDR 

DO MOVE, THEN DO "220G" 


This routine will work on an Apple II Plus, 
although the program the routine operates upon may 
not. 


C9-2 










INTERNATIONAL 
APPLE CORE 

P. O. BOX 976, DALY CITY, CALIFORNIA 94017 USA 


t\PNOT 


THE APPLE II CASSETTE INTERFACE 


INTRODUCTION: 

This note is to explain the cassette interface built into 
the Apple II and Apple II plus. Included is information on 
the format and use of the read and write subroutines* It is 
assumed in this note that the cassette recorder is in the 
proper mode, play or record, when the read and write 
routines are executed. Also note that the timing is 
approximate and may vary from one Apple to another. 

RECORDS: 

A record is a block of binary data. This data may be a 
BASIC or APPLESOFT program, a machine language program, or 
just binary data. Records representing BASIC or APPLESOFT 
programs are really two records, the length of the program 
and the actual program. A record consists of a header, sync 
bit f the actual data, and a checksum byte for error 
de tec tion• 


MONITOR RECORD FORMAT 

+-+- + 

I HEADER 1SJ 
+- f— +■ 


DATA 


4—+ 
1C! 
4-h 


BASIC PROGRAM RECORD FORMAT 

——H—I -—4— +— --— 4 —I— ———4—f- 

I HEADER 1S1 LB 1C! HEADER IS! PROGRAM iC! 

4 *-— —I—4— 1--4-1—I— —--— - 4 —h 


KEY: S - SYNC BIT 

C CHECKSUM BYTE 
LB • BASIC PROGRAM LENGTH 


This application note has been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this In¬ 
formation In any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core Is a non-profit or¬ 
ganization unaffilllated with Apple Computer, Inc. or any other manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 
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THE HEADER; 


The header consists of 10 seconds of 770 Hz tone, (1 cycle 
equals 1300 microseconds). This is enough time for the 
cassette motor to get up to speed and the plastic tape 
leader to go by. There is also a shortened header between 
the BASIC length bytes and the BASIC program itself. This 
header is generated by a subroutine called HEADR. The value 
of the accumulator on entry controls the length of the 
header tone. This can vary from 0.2 seconds to 40 seconds. 
On entry the X register should be 0 and the carry flag 
should be set. HEADR also generates a sync bit at the end 
of the tone. HEADR resides at hexadecimal address $FCC9, or 
decimal address -882. 

THE LAST CYCLE OF HEADER TONE AND SYNC BIT 

- + + - + + - + 

1 1 111 

+-+ +-+ 1 

1 1300 microseconds 1 200! 250 1 

header tone 1 sync bit 1 


THE SYNC BITS 

The sync bit is one half cycle of 2500 Hz, (200 
microseconds) and one half cycle of 2000 Hz, (250 
microseconds). It is used to signal the end of the header 
tone and the start of the data. It is generated by HEADR. 


THE DATA: 

The data is recorded on the tape with a low starting address 
and a high ending address. Each byte of data is shifted out 
most significant bit first, least significant bit last. A 
zero bit is made up of one cycle of 2 kHz, (250 microseconds 
per half cycle) and a one bit is one cycle of 1 kHz, (500 
microseconds per half cycle). This works out to 2000 baud 
for zeros only and 1000 baud for ones, an average of 1500 
baud. 

A ZERO BIT AND A ONE BIT 

+-+ +-+ + 

1 1 1 ! 1 

+ +-+ +-+ 

1 500 usee 1 1000 usee l 
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THE CHECKSUM: 


All during reading or writing each data byte is EXCLUSIVE 
OR-ed with a checksum byte. This byte is writen on the tape 
at the end of the data block. If the checksum computed 
during a read agrees with the checksum that was written out 
then the data is probably good. This method will detect an 
odd number of errors for any of the eight bits of the byte. 


WRITING DATA: 

The cassette output circuitry is quite simple. it is a 
flip-flop connected through a voltage divider to the jack on 
the back panel of the Apple. Any time the address $C020 is 
accessed this flip-flop changes state. Accessing the 
flip-flop once every 500 microseconds generates a 1000 Hz 
tone. 


READING DATA: 

The cassette input circuit more complicated. It consists of 
a 741 operational amplifier configured as a zero crossing 
detector. That means that whenever the voltage at the input 
jack goes from positive to negative (or negative to 
positive) the output of the amplifier switches from a 1 to a 
0 (or 0 to 1). The detector is accessed by any read to 
address $C060. The sign bit (most significant bit) reflects 
the detector status. The read routines continually 
EXCLUSIVE ORs this bit with the value most recently read to 
detect a change in state. The amount of time required to 
change state indicates the incoming frequency which then is 
used to determine if a one or a zero has been recieved. 

After detecting the first zero crossing at the start of a 
read, the read routine uses HEADR to generate a 3.5 delay 
then waits for the sync bit. It then reads the data and 
puts it in the specified memory range. 
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USING THE CASSETTE INTERFACE: 


T - o-it-hpr read or write all you need do is specify an 
address range and execute the read or write subroutine. The 
address range is stored in four bytes, two for the start and 
two for the end. In both cases the least significant byte 

is first. 


FROM THE MONITOR: 

If the start is $800 and the end is $9FF then 

800.9FFW will write the data to the cassette and 
800.9FFR will retrieve it. 


FROM MACHINE LANGUAGE: 

Again if the start is $800 and the end is $9FF then store 
the address range, 

LDA #$00 

STA $3C starting address low 

LDA #$08 

STA $3D starting address high 

LDA #$FF 

STA $3E ending address low 

LDA #$09 

STA $3F ending address high 

then JSR $FEDC to write the data to the cassette or JSR 
$FEFD to read from the cassette. 


FROM BASIC: 

First set up the address range. If S = the start and E 
the end then from integer BASIC, 

POKE 60, S MOD 256 
POKE 61, S / 256 
POKE 62, E MOD 256 
POKE 63, E / 256 

or from APPLESOFT, 

POKE 60,S - INT(S / 256) * 256 
POKE 61,S / 256 

POKE 62, E - INT (E / 256) * 256 
POKE 63, E / 256 

Then to write out to cassette CALL -307 or to read in from 
the cassette CALL —259. 
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DEL CHARACTER KILLER 
5 FEB 80 


INTRODUCTION: 

This routine won't allow the DEL character (underline) through the 
input routine. DOS 3.2 is required to use it. 

SOFTWARE ENTRY 

First you roust decide which slot the interface will go in and enter 
the routine. The routine is customized for this slot number and won't 
work if used with a different configuration. Enter the routine using 
the values from the table for words in brackets, < >. 


SLOT 

CODE 

i 

Cl 

2 

C2 

3 4 5 

C3 C4 C5 

6 7 

C6 C7 

TYPE 



COMMUNICATIONS 

07 

SERIAL 

05 


Enter the monitor with CALL -155 and type 

390:A9 <SL0T> 

:20 8B FE 

:A9 AO 

: 85 38 

:A9 03 

: 85 39 

:4C EA 03 

:20 <TYPE> <C0DE> 

:C9 F F 
: F0 F9 
: 60 


This application note has bean provided by an Apple Computer user* The international Apple Core does not guarantee the accuracy of this In¬ 
formation in any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core is a non-profit or¬ 
ganization unaffilliated with Apple Computer, Inc. or any other manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc, 
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To check your typing, type 
390L 

and compare your listing to the one below for slot 2 and a 
Communications Interface. 


0390- 

A9 

02 

0392- 

20 

8B 

0395- 

A9 

A0 

0397- 

85 

38 

0399- 

A9 

03 

039B- 

85 

39 

039D- 

AC 

EA 

03A0- 

20 

07 

03A3- 

C9 

FF 

03A5- 

F0 

F9 

03A7— 

60 



LDA 

it $02 

JSR 

$FE8B 

LDA 

#$A0 

STA 

$38 

LDA 

//$ 03 

STA 

$39 

JMP 

$03EA 

JSR 

$C207 

CMP 

#$ FF 

BEQ 

RTS 

$03A0 

with 

3D0G 


Now return to BASIC 


SAVING THE PROGRAM TO DISK: 

The routine must be in memory before the printer can be used with the 
delay. Save the routine by typing 
BSAVE DEL FILTER, A$390, L$18 


USING THE INTERFACE: 

To use the interface you must first load the routine and initialize 
the interface. From command mode type 
BLOAD DEL FILTER 
CALL 912 

This may be done from a program by entering 
100 PRINT D$;"BLOAD DEL FILTER" : CALL 912 
assuming that D$ is a control—D. 

If you want to switch back to the video monitor for output type 
IN//0 

or in a program enter 
200 PRINT D$; "IN//0” • 

Then to reconnect the routine, all that is required is 
CALL 917 or from a program 
300 CALL 917 
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CORRECTIONS TO SUP-R-TERNINAL PRELIMINARY MANUAL 

By John Wilbur 

VTABS 

The preliminary manual h f % ' VTABS 'on page iTundlr^BSOUITE 
signiTicant ones is the N should be replaced with Control 

CURSOR POSITIONING. Control T Shlft ther uor( j s , the VTABS in your 

Shift N Cthe Control T was wrong). I" other 
Basic programs should be repleace i 


PRINT CHR$(158) ;PRINTSCHOR);PRINTS(VERT) 


Were HOR is the horizontal column desires + 32, and where VERT is the 
vertical line desired + 32. 

To do the goto XY from t . he A®! b key d yo^ the horiz ° n ^ L 

- Key 2. Where Key 1 ( ro i umn 0-79). For example, if y° u wante e 
position of the cursor (column 0^ find „ 18 .. in the rightmost column 

cursor to, move to RMINAL MEANING". The key you would press 

of appendix A labeled SUP R R , Labeled "type") just to the left 
would be the "2" key (shown in the column labeled xyp 

of the 18. 

PASCAL NOTE 

, 4 . njcrm u e have received some feedback from 

SUP-R-TERMINAL works best' VeYPRESS" function in their programs requires a 
PASCAL users that say the KEYPRES f , DroDe rly. Keypress is a function 
program modification in order to work P P d k ey before allowing 

? ha ? checks the keyboard to «e if^ou have Pre.se^ ^ ^ ^ . f 

the program to continue. The . rf ^ sees our card plugged m, 

there is an external te r "” "® L *c h eck " t he* AppTT keyboard for the 

;t assumes there is, and then does . POKE function to 

keypress function The bes KEY to replace all 

the library and then use a booLe KeyD ress used. For a free copy of 

?!::::.T., h uV;t , f.v y . p . r ~ t.«.. - 

61011, Sunnyvale, Ca 94088. 


. It „nto heen nrovided bv an Apple Computer user. The International Apple Core does not guarantee the accuracy of this In- 

This a PP»“t>°"7 w® v h “nd iutions that modifiers may void a manufacturer's warranty. The International Apple Core is a non-profit or¬ 
ganization unaffllliXd wfth Apple Computer, I nc. or any"other manufacturer. Apple 11, Applesoft, and Apple Computer are trademarks of 

Apple Computer, Inc. TlS—1 
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SERIAL HANDSHAKE MODIFICATION WITH TABS 
JUNE 1980 


INTRODUCTION: 

The High Speed Serial Interface card cannot run faster than 300 baud 
on most printers due to a lack of a printer busy line. This 
modification uses the existing data input line to sense if the printer 
is busy and inhibit output if necessary. DOS 3.2 is required to use 
this modification. This version lets TAB(X) work normally. 

WARNING: 

Damage to the High Speed Serial Interface card will not be covered by 
your warranty. If you aren't sure of the signal levels and pinout of 
your printer, find out or ask your Service Center to help you. 

WIRING CHANGES: 

First you must determine which wire your printer uses to indicate a 
printer busy or buffer full condition. Your printer's manual should 
contain this information or contact the manufacturer. 


Examples: 


IDS 125/225 

pin 

4 

HEATH H-14 

pin 

4 

TI-810 

pin 

11 

SPINTERM 

pin 

19 

COMPRINT 

pin 

20 


The preferred place to do the wiring change is in the cable, but it 
can also be done at the Serial Card or the printer. Disconnect the 
wire between pin 2 of the printer and pin 2 on the Serial Card. Then 
connect the wire with the printer busy signal to the wire for pin 2 on 
the Serial Card. 

SOFTWARE PATCH: 

Next you must decide which slot the interface will go In and type In 
the software patch. The patch is customized for this slot number and 
won't work if used with a different configuration. The patch forces 
the computer to look to see if the printer is busy and wait If it is. 
Enter the patch using the values from the table for symbols in 
brackets, < >. 


SLOT 

i 

2 

3 

4 

5 

6 

7 

A 

90 

A0 

B0 

C0 

D0 

E0 

F0 

B 

Cl 

C2 

C3 

C4 

C5 

C6 

C7 

C 

F9 

FA 

FB 

FC 

FD 

FE 

FF 


This application note has been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this In¬ 
formation In any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core Is a non-profit or¬ 
ganization unaffilliated with Apple Computer, Inc. or any other manufacturer. Apple 11, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 
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Enter the monitor with CALL -155 and type 


3A0:A9 <SLOT> 
: 20 95 FE 
:A9 00 
:20 ED FD 
:A9 B5 
: 85 36 
:A9 03 
:85 37 
:4C EA 03 
:2C <A> C0 
: 30 FB 
:20 07 <B> 

: 48 

:AD <C> 05 
: 85 24 
: 68 
: 60 


To check your typing, type 
3A0L 

and compare your listing to the one below for slot 1. 


03A0- 

A9 

01 


LDA 

#$01 

03A2- 

20 

95 

FE 

JSR 

$FE95 

03A5- 

A9 

00 


LDA 

#$00 

03A7- 

20 

ED 

FD 

JSR 

$FDED 

03AA- 

A9 

B5 


LDA 

#$B5 

03AC- 

85 

36 


STA 

$36 

03AE- 

A9 

03 


LDA 

#$03 

03B0- 

85 

37 


STA 

$37 

03B2- 

4C 

EA 

03 

JMP 

$03EA 

03B5- 

2C 

90 

C0 

BIT 

$C090 

03B8- 

30 

FB 


BMI 

$03B5 

03BA- 

20 

07 

Cl 

JSR 

$C107 

03BD- 

48 



FRA 


03BE- 

AD 

F9 

05 

LDA 

$05F9 

03C1- 

85 

24 


STA 

$85 

03C3- 

68 



FLA 


03C4- 

60 



RTS 



Now return to 


basic with 3D0G. 
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SAVING THE PATCH TO DISK: 


The patch must be In memory before the printer can be used at the 
higher speeds or with the TABbing feature. Save the patch by typing 
BSAVE PATCH, A$3A0, L$25. 


USING THE PRINTER: 

The first time you want to use the printer you must load the patch and 
initialize the interface. From immediate mode type 
BLOAD PATCH 
CALL 928. 

This may be done in a program,by entering 
100 PRINT D$;"BLOAD PATCH": CALL 928 
assuming that D$ is a control-D. 

If in the course of the program you need to turn off the printer, type 
PR #0 

or in a program enter 
200 PRINT D$;"PR#0" 

Then to reconnect the printer, all that is required is 
CALL 938 or from a program 
300 CALL 938. 


NOTES: 

If the printer does not print after the CALL 928, it is probably 
sending the opposite polarity busy signal. The patch can be changed 
to recognize with 
POKE 952,16. 

If this doesn't work, have the printer checked. 


The modification allows the speed, column width, and other variables 
to be changed with the POKES in the manual. 
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APPLE POST - Mailing List Maintenance the Apple Way 

Apple Post is a mailing list system designed for your Apple that allows you to 
enter, edit and store names, addresses and telephone numbers. When your Apple 
Computer System is attached to a compatible printer, Apple Post will also 
print mailing labels, address and telephone lists, and your personal zip code 
directory. 

BENEFITS 

Apple Post... 

• Allows small businesses to take advantage of direct mail 
to customers, because it uses the power of the Apple 
computer to maintain customer lists and print mailing 
labels... 

• Locates names that you wish to modify or which may have 
been misspelled during data entry, through its phonetic 
search routines... 

• Provides you with the capability to perform demographic 
mailings quickly and easily, because it will print 
addresses by specified zip codes or other identifiers 
through its special search routines... 

• Offers you the option of printing complete or specified 
portions of any list for your review or files through 
its select routine... 

• Automatically prints mailing labels of completed or 
selected mailing lists ’through its labels routine. 

APPLE POST - A CLOSER LOOK 


An Apple Post list will hold approximately 500 name and address records on a 
single diskette, for use with a two-drive system. A maximum of 2,590 records, 
or fi ve full diskettes, may be kept online at the same time with a six drive 
system. If you are going to be creating large lists, consider the possibility 
of breaking them up into smaller lists. For example, a subscription list for 
a monthly magazine could be broken into one list for the subscriptions that 
would expire in January, a second for those that would expire in February, 
etc. This would allow Apple Post to handle over 30,000 subscriptions with six 
drives, or 6,000 with two drives. 

Learning the function of each Apple Post command is all it takes to begin 
using the Apple Post system. These commands appear in the VALID COMMAND LIST 
at the beginning of the program. A few are detailed here to give you a 
feeling for the program. 

EXPLAIN may be used to display a brief three—line summary of any listed 

command in the system. It's especially helpful if you forget what a certain 
command will do. 

This application note has been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this in¬ 
formation in any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core is a non-profit or¬ 
ganization unaffilliated with Apple Computer, Inc. or any other manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 
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The ENTER command permits you to add new entries to the Apple Post name and 
address list. After selecting this command, your screen will display the NEW 
ENTRY preformatted screen. 

Most of the entries are self-explanatory. The ATTENTION line is a free line 
of 20 characters which is printed before the name line on mailing labels 
produced by the LABELS command. If the name line contains the name of a 
company, the attention line could contain the name of an individual or 
department within the company. 

The SORT KEY is the line used by the Apple Post system to decide where on the 
diskette to file the entry. All entries are stored in dictionary order by 
sort key. The sort key line cannot be empty. When a name and address is 
first entered, a default reply will appear on the sort key line, for example, 
the person's last name. If you wish to change the sort key, type the new 
entry and the default reply will disappear as you type over it. 

To "flag 1 * or identify some names as belonging to special groups, Apple Post 
provides the UTILITY line. It will be referenced when you use the SELECT 
command to specify a group or groups for which you need to print a listing or 
mailing labels. 

The EDIT command allows you to modify any line of a name and address record, 
except for the sort key line, or delete the entire entry. 

If you are trying to locate a certain name and you 1 re not sure of the way you 
spelled it during entry, you will use the FIND command. The spelling and 
spacing of the name need not be identical to what was entered; the Apple Post 
system will search for any entries that are phonetically similar to the one 
you have specified. 

The ZIPFIND command selects name and address records by Zip Code and permits 
you to modify any line of the names and addresses in the list. 

The Apple Post manual explains each command in detail. 

TECHNICAL SPECIFICATIONS 

Language: Written in Applesoft BASIC. 

Function: Mailing List Maintenance 
Maximum Size of an Online List: 2590 names 

Field Sizes: 

Name 

Street Address 
City & State 
Zip Code 
Attention Line 
Telephone Number 
Sort Key 
Utility Field 

Record Sizes: 

Name & Address Files 155 bytes 

Soundex Index File 17 bytes 

Zip Code Index File 17 bytes 


25 characters 
25 characters 
20 characters 
9 characters 
20 characters 
12 characters 
10 characters 
10 characters 
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Disk Drive Requirements: 
1 to 500 Names 
501 to 1000 Names 
1051 to 1570 Names 
1571 to 2105 Names 
2106 to 2590 Names 


2 drives 

3 drives 

4 drives 

5 drives 

6 drives 


THE APPLE POST PACKAGE 
Order No. A2D0013 __ 

With your Apple Post order, you will receive: 
e One (1) Apple Post diskette; 


• Apple Post Mailing List System 
Manual. 


SYSTEM CONFIGURATION 

To use Apple Post, you will need: 

• Apple II (with Applesoft II 
Firmware Card), or Apple II 
Plus, each with 32K memory; 


or 

• Apple II or Apple II Plus, 
each with the Apple Language 
System and 48K memory; 

• Two (2) Apple Disk II drives, 
one with controller; 

• a compatible printer* (optional); 

• a printer controller card* 
(optional); 

* Note: The Apple Computer System 
works with several printers and 
appropriate controller cards, 
including those specified below: 

• Centronics 

Card: Centronics Printer 

Interface Card (Apple 
Product A2B0007) 

• Printronix 

Card: Parallel Interface Card 

(Apple Product A2L0004) 

• Qume Sprint 5, Diablo Hyterm, and 
NEC Spinwriter 5510R. 

Card: High Speed Serial Inter¬ 

face Card (Apple Product 
A2B0005) with P8-02 PROM 
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Jpper/lower Case and Special Characters 
This application note will describe a Method of changing the Apple DC 
computer so that control of upper and lower case is controlled with 
the shift key. This Modification is for use with the Language SysteM 
and includes a change to the BIOS so that upper and lower case can be 
used with the text editor supplied with the Language SysteM as well as 
all user programs. In additionr all special characters like (3? _? "t 
, \, c» !» }> D? and { May be entered using the norMal Apple DC 
keyboard. This application note was prepared on an Apple DC svsteM 
equipped with this Modification. 

There are three parts to the coMPlete Modification. The hardware 
additions described here void the warranty on the Apple DC coMPuter. 

The first part is to install a lower case display adapter like the Dan 
F'ayMar unit available fron your local coMPuter store or froM several 
Mail order houses. This allows the hardware to display the lower case 
characters once they are placed in the proper MeMory location. 

The second part of the change requires that the shift key be wired to 
the third switch port on the game socket. If you are using SU2 for 
something else already t then you will have to change the program or 
lose your current use of SW2. SW2 was selected since generally there 
are two paddle controls with one switch on each one <SU0 and SW1) and 
because this hardware change was described in an early UOZF'AK froM 
Apple Pugetsound F'rograM Library Exchange (A.P.P.L.E.). This 
Modification is necessary so that the program change described later 
can tell if the shift key is pressed regardless of the condition of 
any other key. 

If you do not already have this Modification* this is how to install 
it. First? unplug the computer from the wall outlet and remove the 
keyboard cable plug froM the main board. This electrically disconnects 
the keyboard from the rest of the computer. Next turn the computer 
over and remove the bottom cover from the computer. You now have two 
pieces? one piece is the light colored plastic piece containing the 
keyboard? and the other piece contains the main board and power 
supply. Next locate the area on the keyboard circuit board immediately 
under either one of the shift keys, you will notice that there are 
three short solder coated wires sticking out of the board. One of 
these wires has no foil leading away from it. Another one of the wires 
has a foil leading off and connecting to many other keys on the 
keyboard? this is the ground. The third one has a foil leading only to 
the other shift key and one or two other places? this is the one we 
want. Carefully solder a snail diameter wire to the short wire 
protruding fron the circuit board Just identified. Next find the 
socket on the circuit board that has the- cable plugged into it that 
goes to the main board. Locate an unused pin on that socket and 
carefully solder the other end of the wire to that pin. Pin A was used 


This application note has been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this in¬ 
formation in any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core is a non-profit or¬ 
ganization unaffilliated with Apple Computer, Inc. or any other manufacturer. Apple 11, Applesoft, and Apple Computer are trademarks of 
Apple Computer, inc. 
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in the prototype. This completes the Modifications directly on tne 
keyboard. 

Now we have to set that connection over to the sawe paddle. Take the 
other assembly with the Main board and power supply and renove the 
cable froM the power supply to the Main board. Then renove the Main 
board fron the Metal botton plate. Turn the Main board over and 
carefully solder a wire fron the keyboard connector socket# sane pm 
nunber as on the keyboard circuit boardr to pin 4 on the sane paddle 
socket. This connects the keyboard shift key to SW2. 

Now put everythin^ back together in the exact reverse order that you 
took it apart. You now have a direct connection froM the shift key to 
SW2. Plug everything back in and Make sure that everything operates 
nornally. 

Now we will test the hardware Modification. Key in the following BASIC 
prograMs 

100 PRINT PEEK<-16285) 

200 GOTO 100 

Now run the prograM. The prograM looks at SW2 and prints out the value 
on the display screen. The value will be greater than or equal to 128 
with the shift key not pressed# and will be less than 128 with the 
shift key pressed. Note that this has nothing at all to do with norMal 
keyboard operation. 

The third part of the Modification is a change to the PASCAL BIOS to 
check the condition of the shift key under certain conditions and 
change the data actually read froM the keyboard depending on the state 
of the shift key. The source for the patch is attached to this 
article. The patch prograM essentially reads an unchanged version of 
SYSTEM. APPLE froM voluMe APPLE1# Makes Modifications in MeMorv# and 
writes out the Modified version on whatever disk is in unit lumber 4. 
The prograM is written to allow updating on a single drive systert. The 
patch is set up to leave all characters in lower case unless the shift 
key is pressed. Special characters are obtained by pressing shift and 
control at the saMe tiMe as follows! 

Shift control P generates (5 
Shift control B generates -C 
Shift control G generates > 

Shift control I generates " 

Shift control J generates ! 

Shift control K generates C 
Shift control L generates \ 

Shift control M generates 3 
Shift control N generates * 

Shift control 0 generates _ 

Shift control R generates NULL 
Shift control U generates 

Shift control Q is a shift lock and acts as a toggle. Start-up leaves 
the Apple keyboard as it caMe fron the factory. Pressing shift control 
Q once Makes it handle lower case and special characters. Press it 
again and it is back to factory operation. 

Many tiMes I have tried to get ahead of the coMPUter only to find that 
I typed too quickly. This patch includes a feature that sounds a beep 
when the coMPUter accepts a keystroke. The use of this feature will 
becoMe obvious with use. 
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To apply the patch to the BIOS? enter the attached PASCAL proaraM? 
coMPile it? and eXecute it. The proaraM will ask you to put APPLE1 in 
device #4? read SYSTEM.APPLE? wake the changes? ask you to put the 
tarsiet disk in device H4? and writes out a Modified SYSTEM.APPLE. 
After the prosraM is executed? you Must re-boot the entire systeM bv 
turning the power off and then on or by entering an 'H' fro« the 
coMMand level. 

That is all there is to it. This Modification has been on nv Apple 3C 
for several Months and there have been absolutely no probleMs. 


PROGRAM CHANGE? 


VAR BUFFER: PACKED ARRAY CO..31?0..5113 OF 0..255? 
F:FILE? 

I: INTEGER? 

FUNCTION HEX(X:CHAR):INTEGER? 

BEGIN 

IF X IN THEN 

HEXs=0RD< X)-46 
ELSE 

IF X IN THEN 

HEX:=0RD( X)-55 
ELSE 

HEXs=32767 

ENDJUHEX*) 

PROCEDURE CB<L0C?DAT:STRING)? 

VAR L?LN?L1?L2?L3?L4?REC,DISP?HI:INTEGER? 

BEGIN 

Lls=HEX(L0CC1I3)? 

L2:=HEX<L0CC23)? 

L3:=HEX(LQCE3D )? 

L4:=HEX(L0CE42 )? 

REC:=<L1-13)*8+L2 DIV 2? 

DISP:=(L2 MOD 2)*256+L3*l6+L4? 

LN:=LENGTH(DAT ) DIV 2? 

WRITELN(LOC?'? 1 ?DAT?'? '?LN)» 

FOR L:=l TO LN DO BEGIN 
D1:=HEX( DATCL+L-13>*16+HEX< DATCL+LD )? 

URITELN( REC? ‘ ? SDISP?'? SD1)? 

BUFFEREREC ? DISP3:=D1? 

DISP:=DISP+1? 

IF DISP=512 THEN BEGIN 
REC:=REC+1? 

DISP:=0? 

END? 

end; 

end; (*cb*> 
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PROCEDURE READIN5 
VAR XXX! char; 

BEGIN 

WRITELN< 'INSERT "APPLEl'S AND PRESS "RETURN"' )f 
READ( XXX)J 

RESET(F r'APPLE1:SYSTEM.APPLE' )! 

Is =BLOCKREAD( F,BUFFER ,32)i 
CLOSE(F)! 

END? 

PROCEDURE WRITEOUTJ 
VAR XXX! char; 

BEGIN 

URITELNC'INSERT TARGET DISKETTE AND PRESS "RETURN"'); 
REAB(XXX); 

RESET(F t '#4!SYSTEM.APPLE')? 

I : =BLOCKWRITE( F f BUFFER » 32 > ? 

CLOSE(F); 

END. 


BEGIN 
READINr 
CB('D8EB' 
CB('D69F' 
CB('D6A1' 
CB('DABE' 
CB('DAC1' 
CB('DAC2' 
CB('DAC4' 
CB('DAC6' 
CB('DAC7' 
CB( 'DAC9' 
CB('DACC' 
CB('DACD' 
CB<'DACF' 
CB('DADO' 
CB('DAD2' 
CB('DAD4' 
CB<'DAD7' 
CB('DAD9' 
CB('DADB' 
CB( 'DADE' 
CB< 'DAE1' 
CB('DAE3' 
CB('DAE6' 
CB('DAE9' 
CB('DAEB' 
CB('DAEC' 
CB('DAED' 
CB( 'DAEF' 
CB('DAF1' 
CB('DAF3' 
CB('DAF5' 
CB('DAF8' 


'EAEAEAEA')5<*NO-OP CONVERT TO UPPER CASE*) 

'297F')? (*AND #$7F RESET HIGH ORDER BIT*) 

'20BEDA' )f( *JSR $BABE PATCH*) 

'8D10C0' )»(*RESET KBD STROBE*) 

'48')? <*PHA SAVE INPUT DATA*) 

'A006' )r (*LDY H$06*) 

'A200' )? ( *LDX H$00*) 

'CA' )» (*DEX* ) 

'DOFD')t (*BNE $DAC6*) 

'AD30C0' )?(*LDA $C030 SPEAKER*) 

'88')! (*DEY*) 

'D0F5' )5 (*BNE $DAC4* ) 

'6B')J (*PLA RESTORE INPUT DATA*) 

'C911'); (*CMP #*il TEST FOR CONTROL Q*) 

'D012' )5 ( *BNE 4DAE6 BRANCH IF NOT CONTROL Q*) 

'2C63C0')f(*BIT $C063 TEST SHIFT*) 

'300B')5 (*BNE $BAE6 BRANCH IF NOT SHIFT*) 

'A980')f (*LDA tt$80* ) 

'4DECBA' )5( *EOR $DAEC TOGGLE THE SWITCH* ) 

'8BECDA' )5(*STA $DAEC STORE IT BACK*) 

'6868')? UF'LA PLA REMOVE RETURN ADDRESS*) 
'4C25D7' )r(*JMP $D725 JUMP BACKf NO DATA*) 

'2CECDA' )5( *BIT *DAEC TEST THE SWITCH*) 

'1002'); (*BPL $DAEA BRANCH IF NOT LOCKED*) 

'60'); ( *RTS RETURN WITH ORIGINAL DATA*) 

'80')r (*SWITCH LOCATIONr FACTORY SETTING*) 
'C941')5 (*CMP #$41 COMPARE FOR 'A'*) 

'900C'); {*BCC $DAFD BRANCH IF LT 'A'*) 

'C95B' )» (*CMP #$5B COMPARE FOR Z+l* ) 

'B01F'); (*BCS $DB14 BRANCH IF GREATER THAN 'Z'*> 

'2C63C0' );(*BIT $C063 TEST SHIFT KEY*) 

'1002')i (*BPL $DAFC BRANCH IF SHIFT PRESSED*) 
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CB('BAFA' 
CB( 'DAFC' 
CB<'DAFB' 
CB( / BAFF / 
CB( 'BB01' 
CB( 'DB03' 
CB('BB04' 
CB( 'BB06' 
CB('BB08' 
CB('BB09' 
CB('BBOC' 
CB('BBOE' 
CB( ' DBOF' 
CB('DBIO' 
CB( 'DB13' 
CB('BB14' 
CB('DB16' 
CB('DB18' 
CB('BB1A' 
CB('DB1B' 
CB<'BB1D' 
CB('DB1F' 
CB( 'DB21' 
CB('BB22' 
CB('BB23' 
CB('DB2C' 
CB('DB35' 
CB('DB3E' 

uriteout; 

END. 


'6920')? <*ABC H$20 CONVERT TO LOWER CASE* > 

'60')5 (*RTS RETURN TO CALLER*) 

'C940')J (*CMP «$40 COMPARE FOR 0*) 

'D003'); (*BNE $DB04 BRANCH IF NOT 0* ) 

'A950')! (*LDA #$50 SET CAP P* ) 

'60')? (*RTS RETURN WITH CAP P* ) 

'C920' )? (*CMP #$20 COMPARE FOR SPACE*) 

'9001')? (*BCC $BB09 BRANCH IF CONTROL CHAR*) 

'60')? (*RTS RETURN IF NOT CONTROL CHAR*) 

'2C63C0')?(*BIT $C063 TEST SHIFT KEY*) 

'1001')? (*BPL $BBOF BRANCH IF SHIFT*)? 

'60')! (*RTS RETURN IF CONTROL ONLY*) 

'AA')? (*TAX TRANSFER A TO X*) 

'BD23DB')?(*LDA $DB23rX LOAD NEW VALUE FROM TABLE*) 
'60')? ( *RTS RETURN WITH NEW CHAR*) 

'C95E')? ( *CMP #$5E COMPARE FOR ** ) 

'D003')? ( *BNE $DB1B BRANCH IF NOT **) 

'A94E')? (*LIiA tt$4E CHANGE TO CAP N*) 

'60')? <*RT5 RETURN WITH CAP N*) 

'C95D')? (*CMP #$5D COMPARE FOR 3*) 

'D003' )? (*BNE $DB22 BRANCH IF NOT*) 

'A94D')5 (*LDA #$4D CHANGE TO CAP M* ) 

'60')? (*RTS RETURN WITH CAP M*) 

'60')» (*RTS RETURN WITH WHATEVER*) 

'40017B0304051C7D1D' )?(*TABLE FOR CHANGE...*) 

'7E7C5B5C5B5E5F1011' )!(*-OF SHIFT PLUS CNTl-*) 

'00131E601F17187F1A')?<*-TO SPECIAL-*) 

'1B1C5D5E1F')!( *_CHARACTERS*) 
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(★★★★A******************************** J 


(* *) 

(* LINEFEED *) 

C* *) 

(* INITIALIZE BIOS TO FILTER OUT *) 

• (* ANY LINEFEEDS SENT TO PRINTER. *) 

. <* * *) 

. (* UCSD SYSTEM OF 23 FEB 79 FOR *) 

- (* APPLE II HAS A LINE-FEED FLAG *) 

C* AT LOCATION BFOF HEX. *) 

(* IF THIS FLAG IS SET TO 255, *) 

(* LINE-FEEDS WILL BE SUPPRESSED. *) 

(* IF IT IS SET TO 0 (DEFAULT), *) 

(* THEN LINE-FEEDS WILL BE PASSED. *) 

(* *) 


(************************************* ^ 
PROGRAM LINEFEED; 

TYPE PA=PACKED ARRAY[0..1] OF 0..255; 
TWOFACE=RECORD CASE BOOLEAN OF 
TRUE: (INT:INTEGER); 

FALSE: (PTR:~PA); 

END; 

VAR CHEAT:TWOFACE; 

BEGIN 

CHEAT.INT:=-16625; (* BFOF HEX *) 

CHEAT. PTR' - f 0 ] .* =255; (* SET FLAG *) 
END. 


This application note has bean provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this In¬ 
formation In any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core Isa non-profit or¬ 
ganization unaffllliated with Apple Computer, Inc. or any other manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 
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PROGRAM TAKE280; 

/************************************************************) 
( * *) 
(* ACCEPTS 280 BLOCKS FROM REMIN AND WRITES TO 95 *) 

(* * */. 

(************************************************************) 

CONST REMIN-7; 

REMOUT-8; 


VAR BUFFER: PACKED ARRAY f0..2048] OF INTEGER; 
I,SUM,BLOCK,TRACK: INTEGER; 

REPLY: PACKED ARRAY [0..1] OF CHAR; 

CH: CHAR; 


BEGIN (* PROGRAM *) 

REPLY[0]:="A"; 

REPEAT (* FOR EACH DISK *) 

WRITELN('PUT BLANK DISK IN 95 AND PRES RETURN'); 

READLN; 

UNITCLEAR(REMIN); 

WRITELN('FIRE WHEN READY..'); 

SUM:=0; 

FOR TRACK:=0 TO 34 DO 
BEGIN 

BLOCK:=8*TRACK; 

UNITREAD(REMIN,BUFFER,4098,0,12); 

FOR I:=0 TO 2047 DO SUM:=SUM+BUFFER[1]; 

IF BUFFER!2048]=SUM THEN 
BEGIN 

UNITWRITE(5,BUFFER,4096,BLOCK); 

WRITE(^•^)> 

UNITWRITE(REMOUT,REPLY,1); (* SAY READY FOR MORE *) 

END 
ELSE 
BEGIN 

WRITE('CHECKSUM ERROR'); 

EXIT(PROGRAM); 

END; 

END; 

WRITELN; 

WRITE('COPY ANOTHER DISK ? '); 

READ(CH); 

WRITELN; 

UNTIL CHO'Y'; 

WRITELN;WRITELN('THAT"S ALL FOLKS...'); 

END. 


This application note has been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this In¬ 
formation In any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core is a non-profit or¬ 
ganization unaffilliated with Apple Computer, Inc. or any other manufacturer. Apple 11, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 
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PROGRAM GETREM; 

(***********************************************************) 
(* *) 
(* READS FROM REMIN AND WRITES TO THE DISK *) 

(* • *> 
(***★*******************************************************) 


CONST REMIN-7; 

VAR BUFFER: PACKED ARRAY [0..16383] OF 0..255; 
BLOCK,NBLOCKS,BYTES,UNITNUM: INTEGER; 

CH: CHAR; 

F: FILE; 

FNAME: STRING[30]; 

PROCEDURE WRITEFILE; 

BEGIN 

REPEAT 

WRITELN; 

WRITE('TO WHAT FILE ? '); 

READLN(FNAME); 

REWRITE(F,FNAME); 

UNTIL I0RESULT=0; 

(*$I+*) 

IF BLOCKWRITE(F,BUFFER,NBLOCKS)ONBLOCKS 
THEN WRITELN('FILE WRITE ERROR.'); 
CLOSE(F.LOCK); 

END; 

PROCEDURE WRITEUNIT; 

BEGIN 

WRITELN; 

WRITE('WHICH UNIT NUMBER ? '); 
READLN(UNITNUM); 

WRITE('STARTING BLOCK ? '); 

READLN(BLOCK); 

UNITWRITE(UNITNUM,BUFFER,BYTES,BLOCK, 12); 
END; 


This application note has been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this In¬ 
formation In any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core is a non-profit or¬ 
ganization unaffllliated with Apple Computer, inc. or any other manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 
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BEGIN 

REPEAT (* FOR EACH TRANSFER *) 

PAGE(OUTPUT); 

REPEAT 

WRITE('READ HOW MANY BLOCKS FROM REMIN ? ') 
READLN(NBLOCKS); 

UNTIL NBLOCKS<*=32; 

BYTES:«NBLOCKS*512; 

WRITELN('FIRE WHEN READY...'); 
UNITCLEAR(REMIN); 

UNITREAD(REMIN,BUFFER,BYTES,0,12); 
WRITELN('ALL '.NBLOCKS,' RECEIVED.'); 

REPEAT 

WRITE('F(ILE, U(NIT, Q(UIT '); 

READ(CH); 

UNTIL CH IN ['F'.'U'.'Q']; 

CASE CH OF 

'F': WRITEFILE; 


'Q': EXIT(PROGRAM); 

END; 

WRITELN; 

WRITE('DONE WRITING. GET SOME MORE ? '); 
REPEAT 
READ(CH); 

UNTIL CH IN ['Y'.'N'); 

END. 
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PROGRAM TRANSFER; 

(★a***********************************************************^ 

(* *) 
(* SENDS AND RECEIVES FILES OR WHOLE VOLUMES OVER SERIAL LINE *) 
(* . *) 
(**************************************************************) 


CONST VERSI0N='A.1'; (* CHANGE WITH EACH REVISION *) 

REMIN=7; 

REMOUT=8; 

CONSOLES; 


TYPE SETOFCHAR“SET OF CHAR; 

BUFTYPE=RECORD 

DATA: PACKED ARRAY[0..511] OF 0..255; 
CKSUM: INTEGER; 

END; 

VAR BUFFER:BUFTYPE; 

CH: CHAR; 

GOODKEY: BOOLEAN; 

LEADIN,ERASEOL,ERASEOS: CHAR; 


FUNCTION SUM512(VAR BUFFER:BUFTYPE): INTEGER; 
EXTERNAL; 

PROCEDURE SEND; 

FORWARD; 

PROCEDURE RECEIVE; 

FORWARD; 

PROCEDURE GETCRTINFO; 

VAR BUFFER: PACKED ARRAY[0..511] OF CHAR; 

I: INTEGER; 

F: FILE; 

BEGIN 

RESET(F,'*SYSTEM.MISCINFO'); 

I :=BLOCKREAD(F, BUFFER,1); 

CLOSE(F); 

LEADIN:“BUFFER[62]; 

ERASEOS;“BUFFER[65] ; 

ERASEOS:“BUFFER[64] ; 

END; 


PROCEDURE CLEARSCREEN; 
BEGIN 

GOTOXY(0,0); 

WRITE(LEADIN,ERASEOS); 
END; 


PROCEDURE CLEARLINE; 
BEGIN 


WRITE(LEADIN.ERASEOL); 

ppllcation note nas 6e6n provided ny' 
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END; 


PROCEDURE PROMPTAT(Y: INTEGER; S: STRING); 
BEGIN 


GOTOXY(0,Y); 

WRITE(S): 
CLEARLINfi; 

END; 


FUNCTION GETCHAR(OKSET: SETOFCHAR): CHAR; 

VAR CH: CHAR; 

GOOD: BOOLEAN; 

BEGIN 

REPEAT 

READ(KEYBOARD,CH); 

GOOD:=CH IN OKSET; 

IF GOOD THEN WRITE(CH) ELSE WRITE(CHR(7)); 
UNTIL GOOD; 

GETCHAR:=CH; 

END; 


PROCEDURE SENDREPLY(S: STRING); 
BEGIN 

UNITWRITE(REMOUT,S, 5,0,12); 
END; 


FUNCTION GETBLOCK:BOOLEAN; 

(* RETURNS TRUE IF CHECKSUM MATCHED *) 

BEGIN 

UNITREAD(REMIN,BUFFER,514,0,12); (* GET DATA AND CHECKSUM *) 

GETBLOCK: =BUFFER.CKSUM=SUM512(BUFFER); 

END; 


PROCEDURE SENDBLOCK; 

(* SEND BLOCK + CHECKSUM AND REPEAT UNTIL REPLY 'GOOD' *) 

VAR REPLY: STRING[4]; 

I: INTEGER; 

BEGIN 

REPEAT 

BUFFER.CKSUM:=SUM512(BUFFER); 

UNITWRITE(REMOUT,BUFFER,514,0,12); (* SEND DATA AND CHECKSUM *) 
UNITREAD(REMIN,REPLY,5,0,12); 

UNTIL REPLY='GOOD'; 

FOR I:=1 TO 100 DO; 

END; 

PROCEDURE GETVOLUME; 

(* GET WHOLE VOLUME, INCLUDING DIRECTORY *) 

VAR BLOCK,NBLOCKS,DRIVE,ERRORS,TOTALSUM,SUM: INTEGER; 

BEGIN 

(*$I-*) 

REPEAT 

PROMPTAT(4,'RECEIVE HOW MANY BLOCKS ? '); 

READLN(NBLOCKS); 

UNTIL I0RESULT=0; 




IF NBL0CKS=0 THEN EXIT(RECEIVE); 

REPEAT 

PR0MPTAT(6,'WRITE TO WHICH DRIVE ? '); 

READLN(DRIVE); 

UNTIL (IORESULT=0) AND (DRIVE IN [4,5,9,10,11,123); 

(*$!+*) 

WRITELN; 

WRITE ('PUT BLANK DISK IN //'.DRIVE,' AND PRESS RETURN.'); 
UNITCLEAR(CONSOLE); (* FLUSH TYPE-AHEAD *) 

READLN; 

WRITELN; 

WRITELN('FIRE WHEN READY...'); 

UNITCLEAR(REMIN); 

WRITELN; 

TOTALSUM:=0; 

FOR BLOCK: =0 TO NBLOCKS-1 DO 
BEGIN 

ERRORS:=0; 

REPEAT 

IF GETBLOCK THEN 
BEGIN 

UNITWRITE(DRIVE,BUFFER,512,BLOCK,12); 

WRITE('.'); 

IF (BLOCK MOD 35)=34 THEN WRITELN; 

S ENDREPLY('GOOD'); 

END 

ELSE 

BEGIN 

ERRORS:=ERRORS+l; 

WRITE(ERRORS); 

SENDREPLY('BAD'); 

IF ERRORS>3 THEN 
BEGIN 
WRITELN; 

WRITELN(CHR(7),'MORE THAN 3 CHECKSUM ERRORS'); 
WRITELN('PROGRAM ABORTED'); 

EXIT(PROGRAM); 

END; 

END; 

UNTIL ERRORS=0; (* OR EXIT WITH ERRORS > 3 *) 

TOTALSUM:=TOTALSUM+BUFFER.CKSUM; 

END; 

WRITELN; 

WRITELN ('ALL '.NBLOCKS,' BLOCKS WRITTEN TO it' .DRIVE) ; 

SUM:=0; 

FOR BLOCK:=0 TO NBLOCKS-1 DO 
BEGIN 

UNITREAD(DRIVE,BUFFER,512,BLOCK,12); 

SUM:=SUM+SUM512(BUFFER); 

END; 

IF SUM=TOTALSUM THEN WRITELN('MASTER CHECKSUM MATCHES'); 

ELSE WRITELN (CHR (7),'ERROR: MASTER CHECKSUM DOESN"T MATCH'); 
END; (* GETVOLUME *) 


PROCEDURE SENDVOLUME; 




(* SEND WHOLE VOLUME, INCLUDING DIRECTORY *) 

VAR BLOCK,NBLOCKS,DRIVE: INTEGER; 

BEGIN 

(*$I-*) 

REPEAT 

PROMPTAT( 4,'SEND HOW MANY BLOCKS ? '); 

READLN(NBLOCKS); 

UNTIL IORESULT=0; 

IF NBLOCKS=0 THEN EXIT(SEND); 

REPEAT 

PROMPTAT(6,'READ FROM WHICH DRIVE ? '); 

READLN(DRIVE); 

UNTIL (IORESULT=0) AND (DRIVE IN [4,5,9,10,11,12]); 

(*$!+*) 

WRITELN; 

WRITE ('PUT SOURCE IN //'.DRIVE,' AND PRESS RETURN'); 
UNITCLEAR(CONSOLE); (* FLUSH TYPE-AHEAD *) 

UNITCLEAR(REMIN); 

READLN; 

FOR BLOCK:=0 TO NBLOCKS-1 DO 
BEGIN 

UNITREAD(DRIVE,BUFFER,512,BLOCK,12); 

SENDBLOCK; 

WRITE('.'); 

IF (BLOCK MOD 35)=34 THEN WRITELN; 

END; 

WRITELN; 

WRITELN; 

WRITELN ('ALL ' .NBLOCKS,'BLOCKS SENT FROM //'.DRIVE); 

END; (* SENDVOLUME *) 

PROCEDURE GETFILE; 

VAR MESSAGE: STRING[4]; 

I,BLOCK,ERRORS: INTEGER; 

F: FILE; 

FNAME: STRING[30]; 

BEGIN 

(*$I-*) 

REPEAT 

PROMPTAT(4,'RECEIVE WHAT TEXTFILE ? '); 

READLN(FNAME); 

IF LENGTH(FNAME)=0 THEN EXIT(RECEIVE); 

IF POS('.TEXT'.FNAME)=0 THEN FNAME:=CONCAT(FNAME,'.TEXT') 
REWRITE(F,FNAME); 

UNTIL IORESULT=0; 

(*$I+*) 

UNITCLEAR(REMIN); 

WRITELN; 

WRITELN('FIRE WHEN READY...'); 

WRITELN; 

BLOCK:=0; 

REPEAT 

UNITREAD(REMIN,MESSAGE,5); 

IF MESSAGEO'DONE' THEN 
BEGIN 




IF GETBLOCK THEN 
BEGIN 

I:=BLOCKWRITE(F,BUFFER,1,BLOCK); 

BLOCK:=BLOCK+l; 

WRITE (' .'); 

IF (BLOCK MOD 35)=34 THEN WRITELN; 
SENDREPLY('GOOD'); 

END' 

ELSE 

BEGIN 

ERRORS:=ERRORS+l; 

WRITE(ERRORS); 

S ENDREPLY('BAD'); 

IF ERRORS>3 THEN 
BEGIN 
WRITELN; 

WRITELN(CHR(7),'MORE THAN 3 ERRORS.' ); 
WRITELN('PROGRAM ABORTED'); 

EXIT(PROGRAM); 

END; 

END; 

END; 

UNTIL MESSAGE='DONE'; 

WRITELN; 

WRITELN; 

WRITELN(BLOCK,' BLOCKS WRITTEN TO ',FNAME); 

CLOSE(F,LOCK); 

END; (* GETFILE *) 

PROCEDURE SENDFILE; 

VAR I,BLOCK: INTEGER; 

F: FILE; 

FNAME: STRING[30]; 

BEGIN 

UNITCLEAR(REMIN); 

WRITELN; 

(*$!-*) 

REPEAT 

PROMPTAT(4,'SEND WHAT TEXTFILE ? '); 

READLN(FNAME); 

IF LENGTH(FNAME)=0 THEN EXIT(SEND); 

RESET(F,FNAME); 

IF IORESULToO THEN 
BEGIN 

FNAME:=C0NCAT(FNAME,'-TEXT'); 

RESET(F,FNAME); 

END; 

UNTIL IORESULT=0; 

(*$I+*) 

WRITELN; 

WRITE('PRESS RETURN TO SEND '.FNAME,' '); 

UNITCLEAR(CONSOLE); 

READLN; 

WRITELN; 

UNITCLEAR(REMIN); 




BLOCK:=0; 

WHILE NOT EOF(F) DO 
BEGIN 

I:=BLOCKREAD(F,BUFFER,1,BLOCK); 

SENDREPLY('SYNC'); 

FOR I:«*1 TO 100 DO; 

SENDBLOCK; ■ 

WRITE / •'); 

IF <BLOCK HOD 35)**34 then writeln; BLOCK:=BLOCK+l; 

END; 

CLOSE(F); 

FOR I:=l TO 100 DO; 

SENDREPLY('DONE'); 

WRITELN; 

WRITELN(BLOCK/ BLOCKS SENT FROM ',FNAME); 

END; 

PROCEDURE SEND; 

VAR CH: CHAR; 

BEGIN 

PROMPTAT( 2 /SEND F(ILE OR V(OLUME ? '); 
CH:=GETCHAR(/F'/f'/V'/v')); 

CASE CH OF 

'F'/f': SENDFILE; 

'V'/v': SENDVOLUME; 

END; 

END; (* SEND *) 

PROCEDURE RECEIVE; 

VAR CH: CHAR; 

BEGIN 

PROMPTAT (2/RECEIVE F(ILE OR V(OLUME ? '); 

CH: =GETCHAR( ('F'/f'/V'/v']); 

CASE CH OF 

'F'/f': GETFILE; 

'V'/v': GETVOLUME; 

END; 

END; (* RECEIVE *) 

BEGIN (* MAIN PROGRAM *) 

GETCRTINFO; 

CLEARSCREEN; 

REPEAT 

PR0MPTAT(0,C0NCAT(^TRANSFER: S(END, R(ECEIVE, Q(UIT '.VERSION)) 
CASE CH OF 

'S'/s': SEND; 

'R'/r': RECEIVE; 

END; 

UNTIL CH IN ['Q'/q'); 

WRITELN; 

WRITELN('THAT"S ALL FOLKS...'); 

END. 




.MACRO POP 
PLA 
STA %1 
PLA 

STA Zl+1 
•.ENDM 


.MACRO PUSH 
LDA Zl+1 
PHA 
LDA Z1 
PHA 
. ENDM 


.FUNC SUM512,1 


FUNCTION SUM512(VAR BUFFER): INTEGER; 


RETURN .EQU 0 
BUFFER .EQU 2 
SUM .EQU 4 


LOOP1 


LOOP2 


NEXT2 


POP 

PLA 

PLA 

PLA 

PLA 

POP 

LDY 

STY 

STY 

CLC 

LDA 

ADC 

STA 


RETURN 


BUFFER 

#0 

SUM 

SUM+1 


SUM 

0BUFFER,Y 
SUM 


BCC NEXT1 
INC SUM+1 


CLC 

LDA SUM 
ADC @BUFFER,Y 
STA SUM 
BCC NEXT2 
INC SUM+1 
INY 

BNE LOOP2 
PUSH SUM 
PUSH RETURN 
RTS 
• END 
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PROGRAM FOREIGN; 


(**********************************************************) 
(* *) 

(* THIS PROGRAM ALSO USES THE ASSEMBLY ROUTINE "GETTEXT" *) 
(* *) 

(**********************************************************) 


CONgT BUFLEN=1600; (* BUFFER SIZE IN BYTES *) 

LINELEN=132j (* MAX LINE LENGTH ALLOWED IN OUTPUT *) 

VAR BUFFER: PACKED ARRAY [0..BUFLEN] OF CHAR; 

NLINES,I,NBYTES,SKIPBUFS,SKIPSYTES,BUFPTR: INTEGER; 

S: STRING[255]; 

FNAME: STRING[30]; 

F: TEXT; 

FUNCTION GETTEXT(VAR BUFFER,MAXBYTES,SKIPBYTES: INTEGER): INTEGER; 

EXTERNAL; 

PROCEDURE GOODBYE; 

BEGIN 

WRITELN;WRITELN;WRITELN('THAT"S ALL FOLKS...'); 

EXIT (PROGRAM); 

END; 

FUNCTION GETSTRING: BOOLEAN; 

(* GET STRING S FROM BUFFER. RETURN FALSE IF NO MORE IN BUFFER *) 

BEGIN 

IF BUFPTR >= NBYTES THEN GETSTRING:=FALSE 
ELSE 
BEGIN 

I: =SCAN(NBYTES-BUFPTR,*=CHR(13) .BUFFER[BUFPTR] ) ; 

GETSTRING:-TRUE; 

IF I > LINELEN THEN (* GET PORTION OF LONG LINE *) 

BEGIN 
(*$R—*) 

S[0]:=CHR(LINELEN); 

MOVELEFT(BUFFER[BUFPTR],S[1].LINELEN); 

(*$R+*) 

BUFPTR:-BUFPTR+LINELEN; 

I:=I-LINELEN; 

END 
ELSE 
BEGIN 
(*$R—*) 

S[0]:=CHR(I); 

MOVELEFT(BUFFER[BUFPTR],S[1],I); 

(*$R+*) 

BUFPTR:-BUFPTR+I+1; 

END; 

END; 

END; 

This application note has been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this in¬ 
formation In any way and cautions that modifications may void a manufacturer's warranty. The international Apple Core is a non-profit or¬ 
ganization unaffliHated with Apple Computer, Inc. or any other manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 
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BEGIN 

REPEAT 

(*$I-*) 

REPEAT 

WRITELN;WRITELN; 

WRITE('OUTPUT FILE NAME ? '); 

READLN (FNAME); 

IF FNAME=" THEN GOODBYE; 

IF POS(/. TEXT', FNAME) **0 THEN FNAME: =CONCAT( FNAME,' .TEXT' ) ; 
REWRITE(F,FNAME); 

UNTIL* IORESULT«*0; 

(*$!+*) 

WRITELN('SKIP HOW MANY BYTES OF EACH LINE ? ); 

WRITE('(22 FOR TEDOS LISTINGS.) '); 

READLN(SKIPBYTES); , 

WRITE('SKIP HOW MANY BUFFERS ? '); 

READLN(SKIPBUFS); 

NLINES:“0; 

WRITELN('FIRE WHEN READY...'); 

WRITELN('(PRESS RETURN WHEN TRANSFER DONE,)'); 


(A**************************************'**********************) 
(* *) 


(* USE GETTEXT TO SKIP OVER THE FIRST SKIPBUFS BUFFERS. *) 
(* THIS LETS YOU BREAK UP BIG FILES INTO SMALLER ONES BY *) 
(* SENDING SEVERAL TIMES AND CAPTURING DIFFERENT PORTIONS *) 
(* OF THE TEXT. *) 


(* *) 
(*************************************************************) 


FOR I:=1 TO SKIPBUFS DO 

NBYTES:=GETTEXT(BUFFER,BUFLEN-2000,SKIPBYTES); 


( ************************ 6 ******* ********************* ******** ) 

( * *) 
(* DONE SKIPPING, GO GET THE DESIRED CHARACTERS *) 

(* STOP WHEN RETURN PRESSED OR BUFFER FULL *) 

(* *) 
£ *************************************************************} 


NBYTES:=GETTEXT(BUFFER,BUFLEN,SKIPBYTES); 
WRITELN(NBYTES,' BYTES RECEIVED'); 

BUFPTR:=0; 

WHILE GETSTRING DO 
BEGIN 

WRITELN(F,S); 

NLINES:-NLINES+1; 

END; 

CLOSE(F,LOCK); 

WRITELN(NLINES,' LINES WRITTEN TO '.FNAME); 
UNTIL FALSE; 

END. 




THIS ROUTINE IS USED IN THE PROGRAM "FOREIGN" 


•MACRO POP 
PLA 
STA -%1 
PLA ' 

STA %1+1 
. ENDM 

•MACRO PUSH 
LDA %1+1 
PHA 
LDA XI 
PHA 
• ENDM 


•FUNC GETTEXT,3 


FUNCTION GETTEXT(VAR BUFFER; MAXB YTES,SKIPBYTES: INTEGER): INTEGER 

RETURNS NUMBER OF BYTES READ FROM COM CARD SLOT 2 BEFORE CR 
PRESSED ON APPLE 


RETURN 

MAXB YTES 

BUFFER 

NBYTES 

CHARS 

SKBYTES 

SKCOUNT 

STATUS 

DATA 

KEYBOARD 

KEYRESET 


• EQU 

• EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 


0 

2 

A 

6 

8 

OA 

OC 


.EQU OCOAE 
.EQU OCOAF 
.EQU 0C000 
.EQU 0C010 


;UART STATUS REGISTER, COM CARD SLOT 2 ONLY 
;APPLE KEYBOARD 


POP RETURN 

PLA 

PLA 

PLA 

PLA 

POP SKBYTES 
POP MAXBYTES 
POP BUFFER 
LDA itO 
STA NBYTES 
STA NBYTES+1 
STA CHARS 
STA SKCOUNT 
LDA KEYBOARD 
CMP //141 
BEQ DONE 


;SAVE RETURN ADDRESS 
;.DISCARD A BYTES STACK BIAS 


;HOW MANY BYTES TO SKIP AFTER CR 
;GET MAX BUFFER LENGTH 
;GET ADDRESS OF BUFFER 


;NBYTES»0 


;HAS CR BEEN PRESSED? 
;IF YES, QUIT 








• 

LDA STATUS 

ROR A 

BCC WAIT 


LDA DATA 

AND #7F 

CMP #32 

BCS STORIT 

CMP .#13 ’ 

BEQ CR 

CMP #9 

. 

BNE WAIT 

SPACES 

LDA #32 

CR 

JSR STOREONE 
BEQ DONE 

LDA CHARS 

AND #7 

BNE SPACES 

BEQ WAIT 

LDY #0 

STORIT 

STY CHARS 

LDY SKBYTES 

STY SKCOUNT 

JSR DOIT 

BEQ DONE 

BNE WAIT 

JSR STOREONE 

STOREONE 

BEQ DONE 

BNE WAIT 

INC CHARS 

DOIT 

LDY SKCOUNT 

BEQ DOIT 

DEC SKCOUNT 

LDA #1 

RTS 

LDY #0 

SKIP1 

STA (BUFFER),Y 
INC BUFFER 

BNE SKIP1 

INC BUFFER+1 
INC NBYTES 

SKIP 2 

BNE SKIP2 

INC NBYTES+1 
SEC 

DONE 

LDA MAXBYTES 
SBC #1 

STA MAXBYTES 
STA MAXBYTES+1 
SBC #0 

STA MAXBYTES+1 
ORA MAXBYTES 
RTS 

PUSH NBYTES 


PUSH RETURN 

RTS 

.END 


;TEST UART STATUS 

;WAIT FOR A CHARACTER 
;GET THE DATA FROM UART 
;MASK OFF BIT 7 
;IS IT A CONTROL CHARACTER? 

;NO, STORE IN BUFFER 
;IS IT A CR? 

jIS IT A TAB? 

;NO, IGNORE IT 

;YES, STORE SPACES UNTIL MULT OF 8 
; BUFFER FULL 


;RESET # CHARS THIS LINE 

RESET COUNT OF BYTES TO SKIP EACH LINE 
STORE IN BUFFER 
BUFFER FULL? 

WAIT FOR MORE. 

PUT CHAR IN BUFFER 
BUFFER FULL 
GO FOR ANOTHER 

BUMP LOGICAL COUNT CHARS THIS LINE 
ARE WE STILL SKIPPING CHARS THIS LINE 
NO, STORE IN BUFFER 
YES, DEC COUNTER 

CLEAR ZERO FLAG (BUFFER NOT FULL) 


;PUT CHARACTER IN BUFFER (Y=0) 


;BUMP BUFFER POINTER (16 BIT) 


;SET ZERO FLAG IF BUFFER FULL 


;BACK TO PASCAL 
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PROGRAM MAIN; 

VAR F: TEXT; 

(* THE FOLLOWING PROCEDURE SETS THE COMMUNICATIONS CARD IN A A) 
(* GIVEN SLOT TO 110 BAUD, 8 BITS, NO PARITY. SEE THE COM *) 
(* CARD MANUAL. THE COM CARD WILL STAY AT THAT BAUD RATE *) 

(* UNTIL SET AGAIN. *) 

PROCEDURE SET110BAUD; 

CONST SLOT-2; 

CODE-82; (* SEE COM CARD MANUAL *) 

TYPE PA-PACKED ARRAY [0..1] OF 0..255; 

TRIX=RECORD CASE BOOLEAN OF 
TRUE: (INT:INTEGER); 

FALSE: (PTR:~PA); 

END; 

VAR CARD: TRIX; 

REM: TEXT; 

X: STRING[99]; 

BEGIN 

CARD. INT: —16 2 4 2+SLOT* 16; 

CARD.PTR'[0] :=3; (* RESET 6850 *) 

CARD.PTR~f0]:-C0DE; (* SET 110 BAUD *) 

END; 

BEGIN (* MAIN PROGRAM *) 

REWRITE(F,'REMOUT:'); 

WRITELN(F,'THIS IS AT 300 BAUD'); 

SET110BAUD; 

WRITELN(F,'THIS IS AT 110 BAUD'); 

END. 


This application note has been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this In¬ 
formation in any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core Isa non-profit or¬ 
ganization unaffllllated with Apple Computer, Inc. or any other manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 
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THE PRELIMINARY APPLE PASCAL GUIDE TO INTERFACING FOREIGN HARDWARE 

10 DEC 1979 (minor revision) 

This document is intended to direct users of the APPLE II 
who are interfacing to their machine hardware other than Apple 
peripheral cards. Its primary target is the community of 
peripheral card manufacturers who have developed a product for the 
Apple II under BASIC, and wish to develop an end-user Pascal 
interface. It is assumed that the reader is familiar with Apple II 
hardware and is an experienced programmer at the machine level, and 
has programmed in Pascal. 

How Apple Pascal looks at the outside world 

Currently, Apple Pascal is capable of recognizing the 
* presence of an Apple (brand) peripheral card in slots 1 through 7, 

which it does at boot time by scanning the ROM in the slot address 
space. The purpose of this scan is (a) to determine if any card 
exists in the slot, since an open slot yields a random response; 
and (b) to find out what kind of Apple card, if any, is there, 
since the four types of Apple cards (printer, com, disk, and 
serial) have distinct values at byte locations Cn05 and Cn07. A 
foreign (other manufacturer's) card generally fails this test and 
so is disqualified in the Pascal system's list of active slots. Let 
us say, for example, that the Apple user has installed a foreign 
• printer card in slot 1, and attempts to do a WRITELN to the 
printer. Pascal formats the request and sends it to the 
interpreter, which in turn reformats it and sends it to the low- 
level I/O package, which in Apple Pascal is called the BIOS for 
Basic I/O Subsystem. At the BIOS level, the slot list is checked 
to see what kind of card is in slot 1 (the only legal slot for the 
printer). It is at this point that the output request fails, since 
slot 1 is marked invalid unless an Apple printer, com, or serial 
card is in place. It is important to note in what follows that the 
BIOS driver routine is the only routine in the system that accesses 
the slot. 

The BIOS 

The term BIOS not only refers to the set of 1/0 drivers 
. installed in the file SYSTEM.APPLE in the Past*-.', system, but also 

to the written specification for these drivers. This precise 
specification of the input and output to Pascal wa^ created by the 
University of California, San Diego (UCSD) to make it easy to 
interface UCSD Pascal (parent of Apple Pascal) to any number of 
machines and machine configurations. The type of things specified 
in the BIOS includes data and control - parameters, calling sequence, 
unit numbers, and error handling requirements. 

For example, an Apple-specific version of the 310S for 
the printer contains the following information: 

(1) Transfer to the printer device is one character at a time. 

This application note has been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this In¬ 
formation in any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core is a non-profit or¬ 
ganization unaffilliated with Apple Computer, Inc. or any other manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 
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(2) The following special characters must be recognized: 

CR (carriage return) (hex OD) Print the line and return 
the carriage to the.first column. An automatic line feed 
should NOT be done. . 

LF (line feed) (hex OA) Sent only after a CR. Should do a 
simple line feed (no return) if possible, else a CRLF. 

FF (form feed) (hex OC) Advance the paper to top-of-form 
(if possible) and perform a carriage return. 

(3) There are only two calls to the Printer BIOS, a write and an 
initialization call. The initialization call should perform 
carriage return-line feed IF desired, but should not do a 
form-feed. . The printer buffer should be flushed. 

Interface Routines Parameters 

Printer write data byte in register A 

return completion code in register X 
(zero if no error) 

Printer init completion code in register X 

(zero if online, nine if offline) 

The completion code is identical to the Pascal IORESULT. 

(End of Printer BIOS) 

A complete description of the BIOS specification is beyond the 
scope of this document. The BIOS specification is available at 
cost from the UCSD Pascal distributor (Softech Microsystems of 
San Diego). 

Changing the BIOS 

At Apple, a BIOS has been written according to the UCSD 
specification to interface with all Apple peripherals. It is 
possible to modify the BIOS module within SYSTEM.APPLE to 
accommodate foreign types of peripheral cards, or to alter the 
behavior of an existing device such as the screen. This document 
contains the information necessary to enable one to manipulate 
the BIOS in the Pascal system in order to add non- Apple devices. 

Pascal units for I/O drivers 

For many types of additional hardware, such as an 
external clock, it is better not to alter the BIOS but to construct 
a Pascal unit containing routines to interface with the hardware.. 

This unit (which may consist of assembly language routines) 
accesses-the Cxxx addresses directly to initialize, command, and 
retrieve data from the hardware. The Pascal user then simply 
"uses" the unit and has available the routines be needs, without a 
system reconfiguration. (Note: The Cxxx address space may be 
accessed directly from Pascal with a M trix M record: 

DEVICEBYTES = PACKED ARRAY (0. .n] OF QHAR; 

TRIX « RECORD CASE BOOLEAN OF 

FALSE:(ADDR: INTEGER); 

TRUE :(CONTROLREC: ~ DEVICEBYTES) 
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END; 

VAR CARD: TRIX; 

One then accesses data by the sequence 

CARD. ADDR : «= (address of hardware); 

CARD.CONTROLRECT [Q] :*= CHR(INITMASK) etc. 

The type CHAR is used to ensure that only the desired byte is 
accessed (not the whole word).) 


Patching the BIOS. 

Some applications such as printers really are required to 
be built into the system (i.e. so that WRITELN statements access 
the proper output device). APPLE PASCAL is aware of the following 
I/O devices: CRT screen, keyboard, printer, graphics output, remote 
in, remote out, and block devices (disks). Remote input and remote 
output are general ports for serial or parallel communication. Any 
device that fits into one of these categories can be handled by 
APPLE PASCAL, by inserting a customized I/O driver into the BIOS. 

The procedure to do so consists of the following steps: 

1. Write the I/O driver according to the BIOS 
specification. 

, 2. Patch the I/O driver into SYSTEM.APPLE at a specified 

, location (see below). 

3. Patch the appropriate BIOS vector in SYSTEM.APPLE. 

The "specified locations 11 in step 2 are in two parts. First, one 
may make use of the space used by the existing driver if there is 
one. These spaces are listed in Table I below. Generally, it is 
preferable to use this space in order to avoid wasting it. 

If the space shown in Table I is insufficient, a small 
amount of unused space exists at locations hex DARE - DB7F. This 
is block 5, byte 190 to block 5, byte 383 (decimal), inclusive. 

The BIOS vectors to patch to point to the new routine are 
given by Table II. Note that the method of routine entry is via a 
JSR, with the return address on the stack. 

The actual patching of SYSTEM.APPLE must be done by a user* 
supplied patcher; an easy method is to use BLOCKREAD to read in the 
SYSTEM.APPLE file and the new driver object file, then MOVELEFT to 
copy the new driver in and BLOCKWRITE to write the new interpreter 
file. A supplier should provide to the user, as a package, such a 
program along with his hardware and altered BIOS routine, making it 
easy for an Apple user to add several modifications to his single 
Apple Pascal system. 

Folding of the Language card memory is taken care of auto¬ 
matically, by the interpreter. 

•When writing BIOS routines, there is one additional consider¬ 
ation: the keyboard input to Apple Pascal is done by polling, not by 

interrupts; therefore, at convenient locations throughout the BIOS 
there exist calls to the character-available check routine located at 
location D681 in the interpreter. When replacing the BIOS routines 
with customized counterparts, those substitute routines should each 
contain a call to the check routine. 
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TABLE I BIOS DRIVER AREAS IN FILE SYSTEM.APPLE 


szssssascssasBsaRsscocc 

RAM 

mcjHrranciacc: 

LOCATION 

- SYSTEM.APPLE 

FILE 

AREA 

LO-ADDR HI-ADDR 

LO-BLK, BYTE HI- 

-BLK, BYTE 

CONSOLE INIT & READ 

D681 

D787 

3,129 

3,391 

CONSOLE WRITE 

D7D0 

D7F6 

3,464 

3,502 

SCREEN DRIVER 

D87B 

DABD 

4, 123 

5,189 

PRINTER INIT 

D788 

D790 

3,392 

3,400 

PRINTER WRITE 

D830 

D84D 

4,48 

4,77 

REMOTE INIT 

D79C 

D7A2 

3,412 

3,418 

REMOTE READ 

D84E 

D87A 

4,78 

4,122 

REMOTE WRITE 

D809 

D810 

4,9 

4,16 

COMMON ROUTINES FOR 

D791 

D79B 

3,401 

3,411 

PRINTER S, REMOTE INIT 

D7A3 

D7CF 

3,419 

3,463 

SERIAL CARD WRITE 

D7F7 

D808 

3,503 

4,8 

PRINTER CARD WRITE 

D811 

D81E 

4,17 

4,30 

COM CARD WRITE 

D81F 

D82F 

4,31 

4,47 

DISK ROUTINES 

GRAPHIC WRITE 

D000 

none 

D569 

0,0 

2,361 




Notes on Table I* 

RAM addresses are given in hex. Locations in the file 
SYSTEM..APPLE are given in decimal as a block & byte offset from the 
beginning of the file (starting at zero). 

Console init routines contain routines used by various 
other parts of the system, including console write. It is best not 
to destroy these. Replacement of the Apple keyboard will entail 
replacement of the console character available check routine 
mentioned above, with a hook at the original location. Note that 
the console is highly reconfigurable from the PASCAL level (program 
SETUP); thus, one should be very thoughtful before putting out the 
effort to change the console BIOS. 

Console write calls the screen driver, unless an 
external terminal is attached. 

Both the printer and remote init routines use both of 
the common routines listed. 

Printer write uses printer card write, serial card 
write, and com card write. Remote write uses serial card write, com 
card write, and printer write (sorry about the nonmodularity). 


The console and disk drivers are considered replaceable 
and not extendable. Therefore, the (large) space allotted in Table 
I is considered sufficient for console and disk needs. Users 
wishing to interface with the existing console or disk drivers 
should do so with the cooperation of Apple Computer. 


TABLE III 

VECTOR 

CONSOLE READ 
CONSOLE WRITE 
CONSOLE INIT 


RAM LOCATION 

FF7B 

FF84 

FF8D 


BIOS VECTORS 

SYSTEM.APPLE FILE 
BLK,BYTE 
23,379 
23,388 
23,397 


G10-4 





PRINTER WRITE 

FF96 

23,406 

PRINTER INIT 

FF9F 

23,415 

DISK WRITE 

FFA8 

23,424 

DISK READ 

FFB1 

23,433 

DISK INIT 

FFBA 

23,442 

REMOTE READ 

FFC3 

23,451 

REMOTE WRITE 

FFCC 

23,460 

REMOTE INIT 

FFD5 

23,469 

GRAPHICS WRITE 

FFDE 

23,478 

scsieKotxiiEcesiencmtieccs] 

All vectors are the 

16-bit argument 

of a JSR instruction 

address given is the 

lo-byte address 

; the high byte goes 


(given address) + 1. 


Zero Page Usage 

If zero page storage is needed, the following information is useful 
Pascal makes use of variables stored at $50 thru $FF. The disk rou¬ 
tines use variables at $36-$4F. Locations $00-$35 are considered to 
be pure temporaries, i.e. information may be stored in these locations 
but may be destroyed by other routines. Also, locations $200-$399 
form a temporary area used by the disk and screen-scrolling routines, 
and may be used as a temporary buffer space for any other routine. 

It should be noted that the drawback to all this patching is that 
it is dependent on the current system version. It is Apple's 
intention, however, to provide a standard, generalized method for 
system reconfiguration before the next system release occurs. 


EIOS listing 

Attached is a listing of the Apple Pascal BIOS, which provides the 
exact specification of the inputs and outputs of the drivers. 


/PAGE - 0 

Carrent ■e&oru available! 10654 
0040! 

0000 ! 

0000! .ABSOLUTE 

0000 ! 

2 blocks for procedure code ?907 words lefl 
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m. - 1 bios 


FILE!, 


OOOO! 

Current neaory available! 
0000! 

0000! 

■ F'ROC BIOS 
1012? 



f 



0000! 

! 



0000! 

! APPLE BIOS FOR USCD PASCAL 


0000! 

f 



OOOO! 

r COPYRIGHT 1978 APPLE COMPUTER INC 

0000! 

» URITTEN BY BILL ATKINSON 


OOOO! 

OOOO! 

4 

f 






OOOO! 

I 



OOOO! 

i ZERO PAGE PURE TEMPS 


OOOO! 

} 

4 



QvOOi 

OOOO! 0000 

F" 1 ~ w 

ZEROL 

,EGU 0 


OOOO! 0001 

ZEROH 

,EQU 1 


OOOO! 0002 

JUHPl 

,EQU 2 


0000! 0003 

JUHP2 

iEBU 3 


0000! 0004 

BXS1L 

,EQU 4 


0000! 0005 

BXSiH 

,EQU5 


0000! 0006 

BXS2L 

•EQU 6 


0000! 0007 

BXS2H 

<EQU 7 


0000! 0008 

CKPTRL 

♦EQU B 


0000! 000? 

CKPTRH 

•EQU ? 


0000! 000ft 

CHECKL 

iEQU 10, 


0000! 000B 

CHECKH 

•EQU 11, 


0000! 000C 

TT1 

,EQU 12, 


OOOO! OOOD 

TT2 

,E8U 13, 


0000! OOOE 

0000! 

0000! 

TT3 

•EQU 14, 


r — 



0000! 




0000! 

t ZERO PAGE PEROTS 


0000! 

OOOO! 

f 

4 



FIRST 

,ECU QFO 

{START ZERO PAGE USE 

OOOO! 00F0 

OOOO! 00F0 

BASIL 

,EGU FIRST 

{SCREEN t POINTER 

OOOO! 00F1 

BAS1H 

•EQU FIRSTI1 

5 

0000! 00F2 

BAS2L 

•EQU FIRST+2 

{SCREEN 2 POINTER 

OOOO! 00F3 

BAS2H 

,EQU FIRST+3 

r 

OOOO! G0F4 

CH 

m FIRSTI4 

fHQRIZ CURSOR 0..7? 

OOOO! 00F5 

CV 

,E6U FIRSTF5 

IVERT CURSOR 0,,23 

OOOO! 00F6 

TEMPI 

•EQU FIRST+6 


OOOO! OOF7 

TEKP2 

•EQU FIRST+7 


OOOO! 00^8 

OOOO! 

OOOO! 

SYSCOH 

•EQU FIRSTI8 

}2 BYTES POINTER OF SYSCQH ARE 




OOOO! 

f 



OOOO! 

} $BFOO PAGE PERMANENTS 


OOOO! 

OOOO! 

f 



f-- 

SCRMOOE 

•EQU OBFOE 


OOOO! 8F0E 

OOOO! If OF 

LFFLAG 

•EQU OBFOF 


OOOO! BF11 

NLEFT 

,EQU OBFli 
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PME - 2 BIOS 


OOOO! BF12 

ESCNT 

,EQU 0BF12 


0000! BF13 

RANDL 

tEQU 0BF13 


OOOO! BFL+ 

RANDH 

.EQU 0BF14 


OOOO! BF15 

CQNFLGS 

,EQU 0BF15 


OOOO! BFIA 

BREAK 

tEQU 0BF16 

J2 BYTES 

OOOO! BF18 

RPTR 

.EQU 0BF18 

.1 BYTE 

OOOO! 8F1? 

HPTR 

tEQU 0BF1? 

J1 BYTE 

OOOO! BFIA 

RETL 

,EQU 0BF1A 


OOOO! BF18 

RETH 

tEQU 0BF1B 



READ POINTER 
URITE POINTER 


HISCELANEOUS PRQGRAH EQUATES 


OOOO! 0200 
00001 0361 
0000! 004E 
0000! D03C 
0000! 0040 
0000! 0004 
0000! D017 
0000! D152 
0000! OOOC 
0000! BFF8 


BUFFER 

CQNBUF 

CBUFLEN 

DURITE 

DREAD 

DINIT 

DRESET 

GOFORIT 

NCTRLS 

SLTTYPS 


iEQU 0200 
,EQU 03B1 
t EQU 04E 
,EQU 0D03C 
tEQU 0D04O 
,E8U 0D0O4 
iEQU 0D017 
tEQU 0D152 
tEQU 12, 
tEQU 0BFF8 


ITEMP HSHIFT BUFFER (OVERLAPS DISK BUF) 
578 CHAR TYPE-AHEAD BUFFER 
.78 DECIMAL 


iPOUERUP DISK INIT 
}PASCAL STARTUP POINT 
r» CTRL CHARS IN TABLE 


DISK ROUTINES ARE AT DOOO TO D5DB 
PUT STARTUP STUFF AFTER THEM 


OOOO! 

OOOO! 


• 

,ORG 0D5BC 


D5DC! 

D5DC1 

D5DC! 

D5BC! 

4 

i HARD RESET INITIALIZATION 

4 

J 


D5DC! 

D5DC! 

D8 

> - 

RESET 

CLD 

i SET HEX NODE 

D5DD! 


j - 



D5DD! 


i 



DSOD! 


i CLEAR ALL MEMORY 0 TO BFFF 


D5DD! 


T 



D6DD! 


J 



D5DD! 

A9 00 

START 

LDA tO 


D5BF! 

85 00 


STA ZEPOL 


D5EI! 

85 01 


STA ZEROH 


D5E3! 

A3 


TAY 


D5E4! 

AA 


TAX 


D5E5! 

91 00 

ZERLP 

STA (ZEROUrY 

!URITE A BYTE OF 0 

D5E7! 

C8 


INY 

5BUHP POINTER 

D5E8! 

DOFB 


bne ZERLP 

iLOOP TILL NEXT PAGE 

D5EA! 

EA 01 


INC ZEROH 

tBUHP MDS PORTER 

D5EC! 

E8 


INX 
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5DOME CLEARING HEH? 


PfifiE - .5 BIOS FILE!. 


USED! EO CO 
D6EF1 DOF+ 

D5F1! 

D5F1! 

D5F1! 

05F1! 

B5F1! 

D5F1! 

D5F1! 

D6FI! 

D5F1! 

D5FI! 

D5F11 

D5F1! AO C7 
D5F3I 84 0? 

D6F5! 20 tttt 
D5F8! 85 OA 
D5FA! 86 OB 
D5FC! 20 tUt 
D5FF! EO 00 
0501! FOB 
D603! C5 OA 
0605! DOB 
D607! E4 OB 
0609! DOB 
0608! FOB 
0600! 

MOD! 

MOO! 

MOD! 

MOD! 

MOD! 

MOD! 03 18 38 48 
MU! 3C 38 18 48 
M15! 

M15! 

M15! 

M15! 

M15! 

M15! 

M15! 

M15! 

M15! 

M15! 

M15! 

M15! 

M15! 

M15! 

M15! 

M15! 

M15! 

MOW 00 
D615! A2 05 
M17! AO 05 
Ml?! B1 03 


CPX 40C0 
BNE ZEBLP 


CHECKSUM PROHS ON EACH SLOT 
TO FIND OUT WHO'S OUT THERE 

SUM TWICE TO TELL IF CARD THERE 

IF SUMS DON'T HATCH THEN MO PRQH IS THERE 

IF HS BYTE OF SUH=0 THEN MO PROH IS PRESENT 


LDY #0C7 

}POINT TO SLOT 7 PROH 

STY CKPTRH 

i(CKPTRL=0 FROM HEM CLEAR) 

JSR CKPAGE 

rl6 BIT SUH IN XrA 

STA CHECKL 


STX CHECKS 

fSAOE FOR HATCH 

JSR CKPAGE 

fSUH AGAIN 

CPX »0 

{WAS HSB ZERO? 

BEQ MOPROH 

JYES NO PROH ON CARD 

CHP CHECK! 

iLSB HATCH? 

BNE NQPROH 

iNO, NO PROH ON CARD 

CPX CHECKH 


BME MOPROH 

iHSD DIDN'T HATCH 

BEO SKIPIORTS 

)ALWAYS TAKEN 


TABLE OF CNQ5 AND CM07 BYTES OF EACH CARD 


CH058YTS .BYTE 003»018i038»048 

CNTBYTS .BYTE 03Cr038i01Br048 


MOW THAT WE KNOW A CARD IS THERE. 
EXAMINE CMOS AMD CN97 BYTE TO 
DETERHINE WHICH CARD IT IS 

SET CARDTYPE AS FOLLOWS! 

Q=CKSUM NOT REPEATABLE OR HS0=0 
1=CHSUH REPEATABLE.CARD MOT RECONGIZEB 
2=DISK CARD (BYTE 07=03C) 

3=CQH CARD (BYTE 07=038) 

4=3EPIAL (BYTE 07=018) 

5=PRIMTER (BYTE 07=048) 


SKIPIORTS LDX *5 r4 TYPES (F CARDS 

HXTYP LDY #5 tCHECK BYTE CN05 OF CARD 

LDA (CKPTRL).Y 
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PACE - 4 BIOS 


FILE!, 


D616! DO OBD6 


CMP CN058YTS-2, 

X5HATCH TABLE 

06IE! DO** 


BNE TRYNXT 

INO, TRY NEXT IN LIST 

H620! AO 07 


LDY *7 


D622! Bi 03 


LOA (CKPTRLbY 

{TEST CN07 BYTE 

D624! DD OFDi 


CMP CN07BYTS-2.X.NATCH TABLE? 

0627! FOtt 


BEQ STOR 

{BOTH HATCHED, CARD RECONQI7ED 

0629! 




D6tEt 00 




D629! CA 

TRYNXT 

DEX 

{BUMP TO NEXT IN LIST 

D62A! EO 02 


CPX *2 

?TRY ALL TYPES IN LIST 

D62C! BOE? 


BCS NXTYP 

{IF NOT IN LISTiFALL THRU UITH X=1 

D62E! 




0627* 00 




D62E! A4 0? 

STOP 

LDY CKPTRH 


0630‘ 8A 


TXA 


0631! ?? 38BF 


STA SLTTYPS-OCOiY 

0634! 




mn oo 




0605* 00 




0601* 00 




D634! A4 0? 

N0PR0H 

LDY CKPTRH 


063.S! 88 


DEY 

{BUMP TO NEXT LONER SLOT 

0637! CO CO 


CPY 40C0 

{SLOT 7 BOUNTQ 1 DONE? 

063?! D0B8 


BNE NXTCRD 

{LOOP TILL 7 SLOTS DONE 

0630! 




DooBi 

D63B! 

i 

! 



0630! 

i SET SCREEN NODE ETC 


0638! 

r 



Doooi 

f 



0638! AD 51C0 


LDA 0CO51 

{SET TEXT HOOE 

D63E! AD 52C0 


LDA 0C052 

{SET BOTTOM 4 GRAFIX 

0641! AD 54C0 


LDA 0C054 

{SELECT PRIMARY PACE 

0644! AD 57C0 


LDA 0C057 

{SELECT HIRES GRAFIX 

D647! AD 10CO 


LDA 0C010 

{CLEAR KEYBOARD STROBE 

B64A! 20 tttt 


JSR FORM 

{ERASE SCREEN 

D64D! 20 tttt 


JSR INVERT 

{PUT CURSOR ON SCREEN 

D650! 20 1700 


JSR DRESET 

{DO ONCE ONLY DISK IHIT 

D653! AD FBBF 


LDA SLTTYPS+3 

5UHAT CARD IN SLOT 3 

D656! A0 30 


LDY 4030 

{SLOT 3 

D658 ! 20 tttt 


JSR CENIT 

{SET BAUD IF COMMUNICATION OR SERIAL THERE 

0658! EO 00 


CPX 40 

{NAS AN EXTERNAL CONSOLE THERE? 

D65D! DOIt 


BNE STARTUP 

!NO,USE APPLE SCREEN 

D65F! A? 04 


LDA 4t 


D661! 80 0EBF 


STA SCRHOOE 

{SET BIT 2 FOR EXTERNAL CONSOLE 

0650* 00 




0664! 4C tttt 

STARTUP 

JHP JPASCAL 

{FOLD IN INTERP AND START PASCAL 

0667} 

o/n 1 




Dao/1 

0667! 

1 

1 



0667! 

i SUB TO CHECKSUM ONE FACE 


0667! 

n/ t-t i 

i 

i 



Doo71 

0667! 

t - 



tfiFOt 6706 




B5F6t 6706 
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PAGE - 5 BIOS Fill!. 


0667! A9 00 

CKPAGE 

LDA 40 


0669! AA 


TAX 

5CI.EAR SUN 

D66A! A8 


TAY 

rCLEAR INDEX 

0668! 18 

CKNX 

CLC 


066C! 71 03 


ADC (CKPTRL).Y 

■ADD BYTE 

B46E! 9041 


BCC NOCRY 


0670! E8 


INX 

iINC HI BYTE IF CARRY 

0671! 




D66Et 00 




0671! C8 

NOCRY 

INY 

fBUHP INDEX 

0672! D0F7 


BNE CKNX 

JSUH 254 BYTES 

0674! 60 


RTS 

.RETURN SUM IN X.A AND Y=0 

0675! 




D675! 

•INCLUDE BIOS!DEVICES.TEXT 


0675! 

A 



0675! 

1 - 



0675! 

4 

1 



D675! 

i BIOS HANDLERS FOR LOGICAL AND PHYSICAL DEVICES 


D675! 

DA75! 


M75! 

B475! 

DS75! 


0675! 

D675! 

D675! 

D675! 

0675! 

M75! 

0675! 

0675! 


OLD MONITOR WAIT ROUTINE 
(LOCATION CHANGED) 


0675! 


0675! 38 

WAIT 

0476! 48 

WAIT2 

0677! E9 01 

UAIT3 

0679! DOFC 


D67B! 48 


D67C! E9 01 


D47E! D0F4 


0680! 40 


D481! 



SEC 
PHA 
SBC 41 

BNE WAIT3 ft* 0204 USECS 

PLA }(13+2712*A!512fAfA) 

sbc n 

BNE WAIT2 
RTS 


D681! 
D681J 
0681! 
0681! 
0681! 
0681! 
0681! 
0681! 
0681! 


CONSOLE CHECK FOR CHAR AVAIL 
STATUS AND ALL REG PRESERVED 
IF CHAR AVIALt PUT IN CONBUF AND INC UPTR 

EARNING...THIS ROUTINE ALSO CALLED FROM DISK ROUTINES 


D681! 
0681! 08 
0682! 48 
0683 ! 8A 


CONCK PHP 
PHA 
TXA 
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PAGE - 6 BIOS 


file; bios;devices,text 


M84! 48 
M85! 98 
D636I 48 
M87! EE 13BF 
M8A! DOtt 
M8C! EE 14BF 
D68A* 00 
D68F! AD FBBF 
M92! C9 03 


M94! 

M96! 

M98 


FOtt 
C9 04 
FOtt 


D6D5! 

BSBE* 00 
D605! AO 55 
MD7! D1 F8 
D6TJ91 DOtt 
MBB! AD 158F 
D6DE1 49 80 
B6E0! 8D 158F 
D&E3! 

M9D* 00 
M93* 00 
ME3! 4C tttt 
DAEA! 

M09* 00 


RNDINC 


RNDOK 


NOTFOL 


PHA 

TYA 

PHA 

INC RANDL 
BNE RNDOK 
INC RANDH 

LDA SLTTYPS+3 
CMP 13 
BED COHCK 
CMP *4 
BEQ JDONCK 


D69A! AD OOCO 

TSTKBB 

LDA OCOOO 

M9D! lOtt 


BPL JDONCK 

M9F! 8B 10C0 


STA 0C010 

MA2! 29 7F 


AND *07F 

MA4! C9 OB 


CMP *11, 

MAA! DOn 


BNE NOTK 

D6A8! A9 5B 


LDA *058 

D6A6t 00 

MAA! C9 Ot 

NOTK 

CMP *1 

MAC! DOtt 


BNE NTTAB 

MAE! 20 tttt 


JSR HTAB 

MB1! AD 158F 


LDA CONFLGS 

MB4! 29 FE 


AND *OFE 

MB3! 8B 15BF 


STA CONFLGS 

MB9! 4C tttt 


JHP DONECK 

MAC* 00 

MBC! C9 1A 

NTTAB 

CMP *26, 

MBE! DOtt 


BNE NOTFOL 

MCO! AD 15BF 


LDA CONFLGS 

DAC3! 09 01 


ORA *1 

MC5! 8D 15BF 


STA CONFLGS 

MC8! DOtt 


BNE DONECK 

MCA! 

M94* 00 

D6CA! AD BECO 

COHCK 

LDA OCOBE 

DACOl 4A 


LSR A 

DACE! 90tt 


BCC DONECK 

MDO! AD BFCO 


LDA OCOBF 

MD3! 29 7F 


AND *07F 


JDONCK 


LDY 1055 
CMP (SYSCOMbY 
BNE NOTSTOP 
LDA CONFLGS 
EOR *080 
STA CONFLGS 


JHP DONECK 


JBUHP U BIT RANDOM SEED 


rUHAT CARD IS IN SLOT 3? 

,‘IS IT A COMM CARD? 

IYESi GOT CHECK IT 
IIS IT A SERIAL CARD? 

IYES, IT CAN'T BE TESTED 
ITEST APPLE KEYBOARD 
INO CHAR AVAIL 
{CLEAR KEYBD STROBE 
{MASK OFF TOP BIT 
ICTRL-K? 

iYES.REPACE WITH LEFT SQR BRACKET 


ICTRL-A? 

JYESrTAB NEXT MULT 40 


{CLEAR AUTO-FOLLOW BIT 


ICTRL-I? 

INO, PUT CHAR IN BUFFER 


ISET AUTO-FOLLOW BIT 
IBR ALWAYS 


ICHAR AVAIL? 

INO CHAR AVAIL 
IGET CHAR FROM HART 
IMASK OFF BIT 7 


{STOP CHAR? 


iYES*TOGGLE STOP BIT! BIT 7) 
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PAGE - 7 BIOS FILE! BIOS(DEVICES.TEXT 


D6E6! 83 
D6E7! Dl F8 
ME?! DOW 
06EB! AD 15BF 
D6EE! 2? 3F 
D6F0! 8D 158F 
D6F3! 6C 16BF 
D6F6! 

D6E?t 00 
D6F6! 88 
D6F7! Dl F8 
MF?| DOW 
D6FB! AD 158F 
B6FE! 4? 40 
D709! 8D 15BF 
0703 ! 4C tm 
D706! 

d6f n 00 

D706! AE 1?BF 
0709! 20 tttt 
B70C! EC 18BF 
D70F! DOW 
0711! 20 tm 
0714! 4C WW 
D70F* 00 
0717! 8E 1?BF 
071A! ?D B103 
0710! 

D715* 1007 
0704* 1007 
D6E4* 1007 
B6CE* OO 
D6C8* 00 
D6BA* 1007 
0710! 2C 15BF 
0720! 10W 
0722! 4C 87D4 
07201 00 
0725! 63 
0724! A8 
0727! 68 
0728! AA 
0729! 68 
D72A! 28 
072B! 60 
070A* 2C07 
072C! E8 
0720! EO 4E 
B72F! DOW 
0731! A2 00 
D72F* 00 
0733! 60 
0734! 

0734! 

0734! 


NQTSTOP BEY 

CHP {SY5C0H )rY 
BNE NOTBRK 
LDA CONFLGS 
AND 403F 

STA CONFLGS {CLEAR FLUSHiSTQP BITS 

JHP B8REAK .BREAK OUT 


NOTBRK DET 

CMP 4 SYSCOK)»Y 
BNE NOTFLUS 
LDA CONFESS 
EOR *040 
STA CONFLGS 
JHP DQNECK 


NOTFLUS LDX «PTR 

JSR BUHP 
CPX RPTR 
BNE BIFOK 
JSR BELL 
JHP DQNECK 

BUFQK STX tfPTR 

STA CONBUF.X 


.FLUSH? 

.TOGGLE FLUSH BIT( BIT 7) 

{BUFFER FUI_L? 

{BEEP i IGNORE CHAR 

{PUT CHAR IN BUFFER 


DONECK BIT CONFLGS {IS STOP FLAG SET? 

BPL CKEXIT 

JHP RNBINC {LOOP IF IN STOP HOOE 


CKEXIT PLA 

TAY 
PLA 
TAX 
PLA 
PLP 

RTS ?aSE RESTORE STAT AND ALL REG AND RETURN 

BUHP INX {BUHP BUFFER POINTERS UITH URAP AROUND 

CPX *CBUFLEN 
BNE DHPRTS 
LUX *0 


DHPRTS RTS 
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FILE! BIOS!DEVICES,TEXT 


D734! 

i 



D734! 

4 

1 

IM1TIALAIZE CONSOLE! 


B734! 

f 



D734! 


- - 


D734! 68 

CINIT PLA 


D735! 85 F6 


STA TEMPI 

{SAVE RETURN ADDR 

B737! 68 


PLA 


8738! 85 F7 


STA TEKP2 


B73A! 68 


PLA 


073B! 85 F8 


STA SYSCOH 

{SAVE POINTER TO SYSCOH AREA 

D730! 68 


PLA 


D73E! 85 F? 


STA SYSCQM+1 


5740! 68 


PLA 


0741! 80 16BF 


STA BREAK 

{SAVE BREAK ADDRESS 

0744! 68 


PLA 


0745! 80 17BF 


STA BREAK+1 


0743! A5 F7 


LDA TEMP2 


074A! 48 


PHA 

{RESTORE RETURN ADDRESS 

074B! A5 F6 


LDA TEMPI 


0740! 48 


PHA 


B74E! AD 18BF 


LDA RPTR 

{FLUSH TYPE-AHEAD BUFFER 

0751! 80 1?BF 


STA HPTR 


0754! AD 15BF 


LDA CONFLGS 


0757! 2? 3E 


AND 403E 


075?! 80 15BF 


STA CONFLGS 

{CLEAR STOP,FLUSH,AUTO-FOLLOU BIT 

D75C! 20 tt%t 


JSR TAB3 

{NOfHORIZ SHIFT FULL LEFT 

D75F! A2 00 

CINIT2 LDX 40 

{CLEAR IORESULT 

0761! 60 


RTS 

{AND RETURN 

0762! 




0762! 




0762! 


READ FROM CONSOLE! 


0762! 


KEYBOARD,COM DR SERIAL CARD IN SLOT 3 

0762! 




0762! 


- - 


0762! 20 tm 

CREAB JSR ADJUST 

{HQR1Z SCROLL IF NECESSARY 

0765! AO 30 


LDY 4030 

{SLOT 3 

0767! AD FBBF 


LDA SLTTYPS+3 

{WHAT TYPE OF CARD? 

D76A! C? 04 


CMP 44 

{IS IT A SERIAL CARD? 

076C! DOtt 


BNE CREAB2 

!N0,CONTINUE 

076E! 4C mt 


JHP RSER 

iYES,READ IT 

H76Ct 00 




0771! 20 8106 

CREAD2 JSR COCK 

{TEST CHAR 

B774! AE 188F 


LDX RPTR 


0777! EC 1?BF 


CPX UPTR 


077A! F0E6 


BED CREAD 

{LOOP TILL SOMETHING IN BUFFER 

077C! 20 2C07 


JSR BUMP 


077F! 8E 18BF 


STX RPTR 

{BUMP READ POINTER 

0782! BD B103 


LDA C0NBUF,X 

{GET CHAR FROM BUFFER 

0785! A2 00 


LDX 40 

{CLEAR IORESULT 

0787! 60 


RTS 

{AND RETURN TO PASCAL 

0788! 




0783! 




0788! 


INITIALIZE PRINTER! 


0788! 


PRINTER IS ALWAYS IN SLOT 1 

0788! 


IT HAY BE A PRINTER,COM, 

OR SERIAL CARD 


G10-13 






PACE - ? BIOS 


file; biosjdevices.text 


1)788! 

J 


1)788! 

J— ~ 


0788! AO 10 

PINIT LDY #010 

iSLOT 1 

D78A! AD F9BF 

LDA SLTTYPS+t 

?WHAT CARD IN SLOT 1? 

D7B0! C? 05 

CHP 05 

IPRINTER CARD? 

B78F! FOU 

D6599 9107 

BEQ CUUQl 

iYES. HO INIT HEEDED 

0791! C9 04 

CENtT CHP 04 

.SERIAL CARD? 

0793! F099 

BEQ ISER 

.YES. INIT SER CARD 

0795! C9 03 

Clip 03 

?CQH CARD? 

0797! F099 

BEQ ICQH 

iYES. INIT COH CARD 

0799! A2 09 

LDX *9 

iNONE OF ABOVE. OFF LINE 

D79B! 60 

RTS 


D79C! 

j- - - 


079C! 

1 

t 


D79C! 

} INITIALIZE REHOTEi 


D79C! 

1 REMOTE IS ALWAYS IN SLOT 2 


B79C! 

! IT HAY BE A COM OR SERIAL CARD 

079C! 



D79C! 

J - 


D79C! AD FABF 

RINIT LDA SLTTYPS+2 

JURAT CARD IN SUIT 2? 

D79F! AO 20 

LDY 0020 

5BR ALWAYS TAKEN 

B7AI! DOEE 

BNE CENIT 

07 A3! 

j — 


D7A3! 

! 


07 A3! 

I INIT COh CARD* Y=QNO 


D7A3! 

4 

1 

4 


07 A3! 

07979 00 

I" -- " 


07A3! A9 03 

ICON LDA 03 

.RASTER INIT 

07A5! 99 8EC0 

STA 0C08E.Y 

iTQ STATUS 

D7A8! A9 15 

LDA 021. 


D7AA! 99 8EC0 

D78F9 00 

STA DCOBE.Y 

{SET BAUD ETC 

07AD! A2 00 

CLRI01 LDX 00 

.CLEW! IORESULT 

D7AF! 60 

RTS 

{AND RETURN 

D7B0! 

i - — 


D7B0! 

f 


D7B0! 

{ INIT SERIAL CARD. Y=QNO 


D7B0! 

f 


07 BO! 

07939 00 


{ASSORTED GARBAGE 

B7B01 20 mi 

ISER JSR SERI 

07B3J 20 00C8 

JSR 0C800 

{SET UP SLOT DEPENDENTS 

B7B6! A2 00 

D-RI03 LDX 00 

{CLEAR IORESULT 

D7B8! 60 

RTS 

4 ...... 

{AND RETURN 

07B9! 

r - - 


07B9! 

* 

i 


B7B9! 

{ ASSORTED SERIAL CARD SET-UP 


07B9! 

4 

f 

4 -r-_ 


B7B9! 

07B19 B9D7 

r '■ 

{STORE NO 

D7B9! 8C F806 

SERI STY 06F8 

D7BC! 98 

TYA 


07BD! 4A 

LSR A 
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FILE! BIOS!DEVICES.TEXT 


B7BE! 4A 


LSR A 


B7BF! 4A 


LSR A 


D7C0! 4A 


LSR A 


D7C1! 0? CO 


ORA 40C0 


D7C3! AA 


TAX 

JMAKE OCN IN X 

B7C4S A? 00 


LDA 40 


07C6S 85 F4 


STA TEMPI 


D7C8! 84 F7 


STX TEHP2 

.SET UP INDIRECT ADDRESS 

D7CA! AD FFCF 


LDA OCFFF 

.TURN OFF ALL C8 RONS 

J7CD! B1 F4 


LDA (TEMPI)iY 

jSELECT C8 BANK 

D7CFi 40 


RTS 


D7B0! 




D7D0I 

! 



D7D0! 

! URITE TO CONSOLE 


D7B0! 

i VIDEO SCREEN!COH OR SER CARD IN SLOT 3 

D7B0! 

! 



D7D0! 

j ^ 



D7B0; 20 8104 

CUSITE 

JSR CQNCK 

'.CONSOLE CHAR AVAIL! 

D7B3! 2C 15BF 


BIT CONFLGS 

rIS FLUSH FLAG SET? 

D7D4! 70» 


BVS CLRIO 

;YES(DISCARD CHAR i RETURN 

D7B3! AA 


TAX 

{SAVE CHAR IN X 

D789! AO 30 


LBT 4030 

J SLOT 3. 01G 

D7BB! AB FBBF 


LDA SLTTYP3+3 

iUHAT KIND OF CARD? 

D7BE! C? 03 


CKP 43 

ICON CARD? 

D7E0! FOtt 


BEQ UCOH 

iYESi URITE TO Cfin CARD SLOT 3 

D7E2! C? 04 


Chp 44 

.SERIAL CARD? 

D7E4I FOtt 


BEQ USER 

iYES.URITE TO SER CARD SLOT 3 

B7E4! BA 


TXA 

iELSE RESTORE CHAR AND SEND TO SCREEN 

D7E71 85 F4 

VIOQUT 

STA TEMPI 

{SAVE CHAR FGR LATER 

B7E?! 20 ttU 


JSR INVERT 

{REMOVE CURSOR 

B7EC! A4 F4 


LDY CH 


D7EE! 20 tt*t 


JSR VQ0T2 

{DO THE BUSINESS 

D7F1! 20 %m 


JSR INVER! 

{RESTORE THE CURSOR 

D7D4* 0-0 




D7F4! A2 00 

CLRIO 

LDX 40 

{CLR IORESOJ 

D7F4! 40 


RTS 

{RErURfl FROM VIDOOI 

B7F7! 

>- 



D7F71 

! 



D7F7! 

! URITE TO SERIAL CARD. T=QM3 

. CHAR IN X 

D7F7I 

r 

i 



D7F71 

i 



D7E4* 00 




B7F7! 20 8104 

USER 

JSR CONCH 

.CONSOLE CHAR? 

D7FA! 8A 


TXA 


D7FB! 48 


PHA 

{SAVE CHAR ON STACK 

87FC! 20 B?D7 


JSR SERI 

{ASSORTED GARBAGE 

D7FFi 48 


PLA 


B3Q01 9D B805 


STA 0583.X 

{SET U? DATA BUE 

B303! 20 AAC9 


JSR 0C9AA 

{SEND IT (SHOUT) 

B304! A2 00 


LDX 43 


9303! 40 


RTS 


930?! 

1 - 



8309! 

i 



930?! 

i URITE TO RENOTE; CHAR IN A 


980?! 

J 
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ko?: 


D80?i 

AA 

D80A1 

AD FABF 

bbod: 

AO 20 

BBOFl 

DO** 

B3ii: 


Bill 


0311! 


Bill 


D8111 


D811I 

20 8183 

88141 

AD CIC1 

8817! 

30F8 

881?! 

8E 90C0 

§3ic: 

A2 00 

D81EI 

30 

D81F! 


B81FI 


881F! 


D81FI 


D81FI 


B81F1 


D7E0* 

00 

B81F! 

20 81D3 

8822! 

B? 8EC0 

88251 

2? 02 

8827! 

F0F6 

882?! 

8A 

D82AI 

9? BFCO 

88281 

A2 00 

B82F! 

30 

8830! 


8830! 


8830! 


8830! 


8830! 


8830! 

AA 

8831! 

AD OfBF 

8834! 

10** 

8833! 

EO OA 

88381 

FOBA 

B83A1 


8834* 00 

D83AS 

AO 10 

863C! 

AD F?BF 

D83FI 

C? 05 

8841! 

FOCE 

880ft 00 

8843! 

C? 04 

8845! 

FOBO 

8847! 

C9 03 

884? 

F0D4 

884 B 


884B 


884B 

A2 0? 


I 


RliRITE 

TAX 

J jAUE CHAR 


LDA siTrrps+2 

iUHA r CARO IN SLOT 2? 


LDY 4020 


i __ _ _ 

BNE CENU2 

IBS ALUAV3 TAKEN 




WRITE TO PRINTER CARD SLOT It CHAR IN X 


t ' 

U?Rfl 

JSR CONCK 

!CONSOLE CHAR AVAIL? 


LDA OCiCl 

fTEST PRINTER READ? 


MI UPRH 

ILQO? TILL READ? 


STX 0C090 

I SEND CHAR 

CLRI02 

LDX 40 



RTS 



i URITE TO CON CARD. Y=ONQ 
i 

CHAR IN X 

t- 

OH JSR CONCK 

iCONSOLE CHAR? 

LDA 0C03E.Y 

ITEST DART STATUS (ASIA STATUS REGISTER) 

AND 42 

IREADt? 

BED OH 

IHQi us IT TILL READ? 

TXA 


STA 0C08 C .Y 

}SEND CHAR 

LDX 40 


RTS 



write to printer: CHaR IN A 


t- 

PURITE 

TAX 

iSAVE CHAR IN X 


LDA IFFLAG 

ITEST LINE-FEED FLAG 


BPL LFPASS 

{PASS IF BIT7=0 


CPX 410, 

IIS IT A LINE-FEED? 


BED CLRIQ 

lYESt IGNORE 


LFPASS 

LDY 4010 

ISLOT 1 


LDA SLTTYP3T1 

IIIHAT KIND QF CARD? 

CEN4 

CHP 45 

I PRINTER CARD? 


BEQ UPRN 

IYES URITE TO PRINTER CARD 

CENU2 

CHP 44 

1 SERIAL CARD? 


BEQ USER 

IYES URITE TG SER CARO 


CHP 43 

ICOH CARD? 


BEQ BCQH 

IYES URITE TO COh CARD 

OFFLINE 

LDX 4? 
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B84D! 

B84E! 

B34E! 

60 


RIS 



J 



B84E! 


I 



B84E! 


» READ FROM REfiSTE 


B84E! 

884E! 


i 


' 


f ~ 



S84E! 

AD FABF 

RREAD 

LDA SLTTYPS12 

jUHAT CARD IN SLOT 2? 

8851 ! 

AO 20 


LDY 4020 


8853! 

C9 04 

CENR 

CMP 44 

JSERIAL CARD? 

8855! 

FOtt 


BEQ RSER 

iGET FROM SERIAL CARD 

1857! 

C9 03 


CMP 43 

iCQH CARD? 

1859! 

FOI* 


BEQ RCOM 

fGET FROM CON CARD 

8858! 

8850! 

B850! 

DOEE 


BNE OFFLINE 

{CARD NOT RECOG 


i" . 

» 

1 



8850! 


1 READ FROM CON CARD. Y=N0 


6850! 

torn i 


f 



H»JUi 


1 



mn 

00 




1850! 

20 8106 

RCOM 

JSR CQNCK 

{CHECK FOR CONSOLE CHAR 

0360! 

B9 BECO 


LDA 0C08E.Y 

{TEST UART STATUS 

8863! 

4A 


LSR A 

{TEST BIT 0 

8864! 

90F7 


BCC RCOM 

{UAIT FOR CHAR 

1866! 

B9 8FC0 


LDA OCOa c ,Y 

{GET CHAR 

8869! 

A2 00 


LUX 40 


6866! 

886C! 

60 


RTS 






B86C! 


i 



D86C! 


1 READ FROM SERIAL CARD, Y=0NQ 

686C! 


1 



B86C! 


j- 

— 



6855$ 00 



D76FI 6CB8 



D86C! 20 8106 

RSER JSR CONCK 

{CONSOLE CHAR AVAIL? 

B86F! 20 B9D7 

JSR SERI 

{ASSORTED GARBAGE 

0872! 20 40C8 

JSR 0C84D 

IGEI A BYTE (SHIFTIN) 

8875! BD B805 

LDA 0588.X 

{GET BYIE 05884SLOT 

B878! A2 00 

LDX 40 


887A! 60 

RTS 



B87B! 


8878 ! 

D87B,' 

D87B! 

B87B! 

I87B! 

887B! 

B87B! 

!87B! 

b87b: 

D87B! 


• INCLUDE BIQSISCREEIGTEXT 


APPLE II SCREEN DRIVERS ROUTINES FOR 80 COL DISPLAY 


B87B! i- 

B87B! r 

D87BI } LIST OF CONTROL CHARS 


GlO-l? 
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J07B 


f (APPLE SCREEN EHULATES A DATAfOIA TERHINAL) 

vsn 


f 

m 


« 

F - ------ 

687g 

16 

CTRLCH .BYTE 27. .’ESCAPE 

K7C 

IE 

.BYTE 30. iGOTOXY 

1870 

00 

.BYTE 13. ICR 

88?E 

Oft 

.BYTE 10. ILF 

m 

07 

.BYTE 7. .BELL 

E880 

IF 

.BYTE 31. 5REVLF 

mi 

1C 

.BYTE 28. IMBPS 

1882 

08 

.BYTE 8. .NOBS 

6883 

OC 

.BYTE 12. IFDRrt 

8884 

17 

.BYTE 25. IHCWE 

BBSS 

08 

.BYTE 11, ICIEOS 

6686 

10 

.BYTE 29, ICLE0L 

8887 


• 

8887 


* 

1 

B87 

8887 

8687 

1887 


I M? TABLE FOR COHTROI. CHARS 

t 

f 

ms 

CTRLJftP ,BGRD ESCAPE 

B8B? 

ms 

,TO G0T0KY 

8636 

ms 

.TO CR 

1880 

ssss 

,TO IE 

168P 

mt 

.TO BELL 

8891 

ms 

.TO REVLF 

8873 

ssss 

.TO ADVANCE 

8875 

ms 

.TO NOBS 

8877 

ms 

.TO FORH 

8877 

ssss 

,TO ROHE 

I87B 

ssss 

,8QRD CLEOS 

1878 

ssss 

.TO CLEOl 

8S9F 



B89f 


» 

F - - - - - * - - 

887F 


4 

i 

B87F 


i START OF SCREEN HANDLING ROUTINES 

587F 


4 

f 

187F 


4 

!~-- - - 


87EFS9FB8 


fS?F: 

AD 12BF 

VQUT2 

LBAESCNT 

5STILL IN ESC SEQ? 

I0A2 

FOSS 


BEQ 80TSEQ 

»NO.SKIP 

8BA4 

C9 02 


CAP 02 

{ARE HE IN XY KOBE? 

DBAS 

TOSS 


BCC SEQRET 

INO. THERE ARE NO OTHER ESC SEQUENCES 

08A8 

FOSS 


BEQ SETY 

1IF ESCNT=2 THEN SET W 

BAA 

fsn 


LDA TENP1 

{ELSE GET BACK CHAR 

B8AC 

38 


SEC 


BAD 

E? 20 


SBC 032. 

{SUB 32 

88AF 

30SS 


BRI BOPSX 

{BRANCH IF NEG 

B8B1 

C? 50 


CAP 480* 


8863 

TOSS 


BCCXOK 


B8AFS00 




BOS! A7 00 

BOPSX 

LDA TO 

{OUT OF RANGE. HAKE =0 

B6B3S00 




88671 85 F7 

XQX 

STA TENP2 

{SAVE TILL GET Y TOO 

§869! 4C UU 


JNP SECRET 

{DEC ESCNT AND RETURN 

mm oo 
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FILE! BIOSiSCREEN.TEXT 


D8BC1 A5 F6 

B8BE! 38 

88BF! E9 20 

B8C1! 30« 

B8C3! C9 18 

D8C5! 901* 

RC1*00 

SETY 

D8C7! A9 00 

98C54 00 

OOPSY 

D8C9! 85 F5 

B8CB! 20 **** 

B8CE! A5 F7 

WOO! 85 F4 

D802! A9 00 

B804! 8D 12BF 

B807! 40 

RBA4 D8D8 

D8A4* 00 

YDX 

B808! CE 12BF 

ROB: 40 

BBA2$ 00 

SECRET 

ROC! A5 F4 

ROE! 29 7f 

D8E0! C9 20 

RE2! 901* 

B8E4! C9 40 

RE4! 90S* 

B8E8! E9 20 

B8E4S00 

NQTSEQ 

REA! 29 3f 

REC! 09 80 

REE! 4C **** 

UPPER 


LBA TErtPl »GEI BACK CHAR 
SEC 

SBC 432. 

Bill 00?SY 
CHP 424. 

BCC YOK 

LDA *0 

STA CV .SET N£U CV 

JSR BASCAL iCALC NED POINTERS 

LBA TEHP2 fSEf X COORD FROM LAST 
STA CH iTIhE THRU AND SET HOSIZ 

LDA 40 
STA ESCNT 

RTS JAND RETURN 


DEC ESCNT 
RTS 

LDA TEHPl 5GET CHAR BACK 

AND 407F iHASK OFF HI BIT 

CHP 432. rCONfRQ CHAR? 

BCC CNTRL 5YESi PROCESS IT 

CHP 494, jLONER CASE? 

BCC UPPER 

SBC 432, .CONVERT TO UPPER 

AND 403f ITURN ORE FLASH 

ORA 4030 .HAKE NOT INVERTED 

JHP STQABV rPRINT AND RETURN 


D8E2* 00 
D3F1! A2 OB 
J8F3! DD 7BD8 
B8F6! F0« 
B8F8! CA 
B3F?! 10f8 
B8FB! 40 
D8F4S 00 
D8FC! BA 
B8FD! OA 
D8FE! AA 
B3FFI BD 8308 
D902I 85 03 
D904! BO 8708 
D907! 85 02 
8909! 6C 0200 
D90C! 

B90C! 

D90C! 

B90C! 

B90C! 

B887t 0CD9 


CNTRL LDX 4NCTRLS-1 .POINT TO END 0* CTRL TABLE 

CKCTRL CHP CTRLCH.X .COHPARt CHftR AGAINST TABlF 

DEQ DQCTRL .PROCESS IF HATCH 

DEX 

BPL CKCTRl ;CHECK ALL CHAR IN TABlE 
RTS .IGNORE IF HOT HATCHED 

OOCTRL txa 

ASL A .DOUBLE INDEX FOR HQRD OFFSET 

TAX 

LDA CTRLJrtP+l.X .GET HI BYTE JO? ADDR 
STA JUHP2 

LDA CTRLJHP.X I AND LQ BYTE 
STA JUHP1 

JHP WlMPl iDO TABLE JUH? 


ROUTINES TO PROCESS CONTROL CHARS 
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890C! A? 01 

B90€l 80 12BF 

69111 60 

BB89* 12D9 

ESCAPE 

0912! A9 03 

8914! 8D 12BF 

8917! 60 

8888* 18D9 

GOTQXr 

0918! AO 00 

D91A! 8* FI 

891CI 60 

G83D* 1DD9 

CR 

D910! A5 F5 

D91F! C9 17 

8921! FOI* 

IF 

8923! E6 F5 

8925 ! 4C mt 

B92U 00 

LF2 

8928! A5 F4 

B92A! 48 

8928! A2 00 

0928! 86 F5 

B92F! 20 Utt 

SCROLL 

8932! 20 Utt 

0935! E8 

8936! 86 F5 

8938 ! 20 mt 

8938! AO 27 

co?u 

8930! B1 F0 

893F! 91 04 

8941! B1 F2 

8941! 91 06 

8945! 88 

8946! 10F5 

C0?Y2 

8948! E0 17 

B94AS 80E6 

B94C! A9 00 

B94E! 85 F4 

8950 ! 20 mt 

8953! 68 

8954! 85 F4 

8956! 60 

DB8F*570? 

8712* 5789 

SKPCOUr 

D957! A9 40 

8959! 20 7506 

B95C! AO CO 

BEIL 

B95E1 A9 0C 

8960 ! 20 7506 

8963! AD 30C0 

8966! 88 

B967! OOFS 

BELL2 

8969! 60 

0891* 6A09 

jRF.r 

B96A! A5 F5 

RcOlf 


LDA 41 


STA ESCNT 

JSET ESCAPE FLAG 

Rrs 

{AND RETURN 

LDA 43 


STA ESCHT 

{SET ESC C0UNr=3 FOR XT 

RfS 


LOT 40 


STY CH 

iRESET HORIZ CURSOR 

RTS 


LDA CV 

;get vert cursor 

CHP 423, 

ion mm line? 

BEO SCROLL 

iYESf SCROLL UP 

INC CV 

i!(Oi BUHP VERT CURSOR 

JrtP BASCAL 

JCAIC POINTERS AND RETURN 

LDA CH 


pha 

iSAVE HORIZ CURSOR 

LDX 40 


STX CV 

UNIT LINE COUNT 

JSR BASCAL 


JSR COPY 

iCOPY POINTERS 

INX 


STX CV 

1BUHP LINE COUNT 

JSR BASCAL 


LOT 439, 


□A (BASIL), If 


STA (BXSLDfT 

fCOPY BYTE OF PEL 

LDA (BAS2L)»Y 


STA (MS2L),Y 

iCO?T BYTE OF PG2 

DEY 


BPL CQPY2 

{LOO? 40 CHARACTERS 

CPX 423, 

ilINf 23 COPIED? 

BNE CQPYl 

>N0| LOO? m.I PAGE 

LDA 40 


STA CH 

iCLEAR HORIZ CURSOR 

JSR CLEOL 

{CLEAR BOTTOM LINE 

PLA 


STA CH 

{RESTORE HORIZ CURSOR 

RTS 

{AND RETURN 


LDA 4040 

JSR BAIT 

LOT 40C0 

»DELAY ,0). SEC 

LDA 403C 

{TOGGLE SPEAKER AT 

JSR BAIT 

5 1KHZ FOR ,1 SEC 

LDA 0C030 
DEY 

BNE B£lL2 

{TOGGLE SPEAKER 

RTS 

!AND RETURN 

LDA CV 

{IS CURSOR ALREADY 
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FILEI IJOSSSCRFFM.TfXT 


B94C! FOFB 


BE0 JRET 

JYFSf RETURN 

99/.E1 C4 F5 


DEC CO 

1N8> BMP U? 

W7o: 4C um 


JHP PASCAL 

ICAI.C POINTERS AND RETURN 

mm 7309 




B973! CO 00 

NOBS 

cpy 40 

JYFSf AT LEFT 0? PAGE 1 

8975! FOJ* 


BEQ JJfW 

JYFSf RETURN 

8977! C6 F4 


DEC CH 

JNOf BlWP IT LEFT 

8975* 00 




8979! 60 

JINU 

RTS 

JANO RETURN 

D97A! 




8897* 7AD9 




BMP* 7m 




D97A! 20 **** 

FORK 

JSR HONE 


D97B! 4C UM 


JHP CLEGS 


8980! 




B97B* 80D9 




Wm 8009 




8980! AO 00 

HONE 

LOT SO 

JRESET C9.CH 

8982! 84 F5 


STY CO 


B984! 84 F4 


STY CH 


8984! 




8984! 4C tttt 

BSREI 

JHP PASCAL 

{CALC POINTERS AND RETURN 

8989! 




&97E5 89B9 




8898*8909 




8989! A5F4 

CLF.0S 

LDA CH 

JSAVF HORIZ CURSOR 

8988! 4ft 


PHA 


898C! A5 F5 


LDA CV 


B98E! 4ft 


PHA 

{SAVE UERT CURSOR TOO 

B98F! 20 W 

CLNXL 

JSR CLEQl 

{CLEAR A LINE 

0992! 20 18D9 


JSR CR 

{POINT TD LEFT 

8995! 20 2309 


JSR 1/2 

{OF NEXT l.INF BOHN 

D998! A5 F5 


LDA CO 


D99A! C9 18 


CAP *24, 


D99C! 90fl 


BCC CIM. 

{LOOP TUI CV5=?4 

899E! 48 


PLA 


D99F! 85 F5 


STA CO 

{RESTORE VERT CURSOR 

D9At! 48 


PLA 


B9A2! 85 F4 


STA CH 

{RESTORE HORIZ CURSOR 

D9A4! 40 UM 


JHP PASCAL 

{CALC NEU POINTER AND RETURN 

mi\ 




0990* A7B9 




0951* A7D9 




B89BS A709 




B9A7! (Vi F4 

CLF.0L 

LDX CH 

{SAVE CH 

89A9! A9 A0 

CL00P 

LDA *J60. 

JGET A SPACE 

D9AB! 20 UM 


JSR STOADV 

{PUT IN ON THE SCREEN 

S9AE! 90F9 


BCC CLQOP 

tL.OO? TILL END Or LINE 

B9&0! 86 F4 


SIX CH 

{RESTORE CH 

D9B2! 60 


RTS 


89B3! 




llTtMi 

B9B3! 




89B3! 

t 



B9B3! 

i STORE CHAR IK A ON SCREEN THEN 
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B9B3! 


B9B3! 


B9R3! 


B9BJ! 


D9AC* 

R3B? 

B8EF* 

R3fl? 

B9R3! 

70 m 

D9R4L 


89B6! 


B9B6! 


D9R4! 


B9B41 


S9B6! 


D9B4! 


WRAi 


B9BA! 


89RAL 


D9R6! 


B893* 

m 

D9BA! 

A4 F4 

D9B8! 

CO 4F 

D9BA! 

BOI* 

D9BC! 

C8 

B9BD! 

84 F4 

B9BF! 


D9BA* 

00 

D9BF1 

40 

99C0! 


89C0! 


B9C0! 


D9C0! 


D9C0! 


D9C0I 


D9C0! 


D9C0! 


&9C0! 


D9C0! 


89C0! 


B9B4* 

C009 

WCOi 

48 

D9CI! 

A5 F4 

D9C3! 

38 

B9C4I 

Ffl UBF 

B9C7! 

30** 

DPC9L 

C? 28 

D9C8! 

BOlt 

B9C0! 

A8 

D9CE! 

48 

B9Cfi 

BO** 

D9BI! 

B1 FO 

D9D3! 

49 80 

D9B5L 


D9CF* 

00 

D9B5! 

9t FO 

D9D7! 

60 


FAIL THROUGHT TO ADVANCE 
X REG UNCHANGED, Y=CH ON FXIT 


STDADV JSR STORE iPLIT CHAR 0N SCREEN 


advance cursor to right, 

IF CH ALREADY = 7? THEN DON' I ADVANCE, 
ANTI RE TORN UITY Y=7? AND CARRY SF.F 
ELSE RETURN UTTH Y-CH, CARRY CLFAR 
X i A UNCHANGED 


ADVANCE LDY CH 
CPY 179, 
BCS AOVRTS 
INY 

STY CH 


AOVRTS RTS 


PUT CHAR ON SCREEN, EITHER VISABLF 
OR INVTSABLE PORTION, 

SPECIAL CASE ! IF A=0 THEN .JUST INVERT 
AT THAT LOCATION INSTFAB OF STORING, 


STORf PHA ISAVE CHAR FOR LATER 
LDA CH 
SEC 

SBC NLFFT iuherf is the horiz cursor? 

BfU OEFLFT i IT'S OFF TO THE LEFT 0- WSABLF SCREEN 
CUP *40, 

BCS OFFRr ,‘IT'S OFF TO THE RIGHT OF VISABlE SCREEN 

TAY .ELSE IT'S ON VISARIF SCREEN 

PLA fGET CHAR BACK 

BNE STORE! iSTORE IT UNLESS 0 

LBA <BASIL),Y fIF 0 READ SCREEN 

EOR 1030 ,* INVERT CHARACTER 


STOREL STA (BASIL),Y jSTORF VISABLE CHAR 
RTS 
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FILE! BiaSlSCRFFK.TFXr 


D9B8! 

B9C7* 00 
D9P8! 18 
B9D?! 6? 78 
D9B8I 4C ttU 
D9DE! 

09C8* 00 
DVDEi 38 
B9DF1 E? 78 
D9EU 

D9DC* ElO? 
D9EU A8 
D9E2! 68 
D9E3! DOtt 
D9E5! B1 F2 
D9E71 4? 80 
B9EV! 

D9E35 00 
D9E?i 91 F2 
B9FJi 60 
B9EC! 

WEC! 

B9EC1 

B9EC! 

D^EC! 

D9EC! 

B9F.C! 

D7F24 EG09 
D7EA* EC09 
BTECi A? 00 
B9EE1 4C COD? 
D9F11 
D?F1! 

wfii 

09F11 

D9F11 

D?F1! 

D9F11 

D?F1! 

0?F1! 

09FIS 

0?A5» F10? 
D987* F1D9 
0971* FID? 
0939* F109 
0930* FiO? 
0976* F1D9 
DBCC* F109 
D9F1! AS F5 
0?F3i 4 A 
D9F4! 29 03 
09F6I 09 04 
09F8I 85 FI 
09FA1 A5 F5 
D9FC1 29 18 


OFFLFr CIC 

ADC *40. 
JHP ST0R2 


OFFRr SEC 

SBC *40. 


STOR? TAY 

PLA iGET BACK CHAR 

BNE STORE? i STORE IF NOT 0 
IDA (8AS21 )»Y ilF 7ER0r READ SCREEN 
FOR *080 (AND INVERT IT 


STORE? STA t BAS2L)»Y iSTORE HIDDEN CHAR 

RTS 


INVERT CHAR AT CURSOR POSITION 


INVERT IDA *0 (FLAG TO TELL STORE TO IHVERI 
JHP STORE (INVERT AT CH AND RETURN 


CLACUlATF base address pointers 

FOR PAGE 1 AND PAGE 7. 

ENTER KITH CV IN RANGE 0..73 
EXIT WITH BASILiHr AND DAS2l.(H SET UP 
X AND Y REGS UNERASED 


RASCAL LDA CV 

LSRA (SET CARRY FOR 6 LINES BONN 

AND *3 

ORA *4 

STA BAS1H 

LDA CV 

AND *018 
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FILE! RIOS!SCREEN,TEXT 


B9FE! 90tt 
BAOO! 4? 7F 
DA02! 

D9FEt 00 
DA02! 85 FO 
BA04! OA 
BA05! OA 
BAOAi 05 FO 
DAOS! 85 FO 
BAOAi 85 F2 
DAOC! A5 FI 
BAOE! 18 
BAOf! 6? 04 
DAU! 85 F3 
DA13! 40 
DAU! 

DAU! 

DAU! 

DAU! 

DAU! 

DAU! 

DAti! 

DAU! 

DAU! 

DAU! 

D93M 14DA 
DAU! A5 FI 
DAU! 85 05 
DA18! A5 F3 
DAU! 85 07 
DAtC! A5 FO 
DAtE! 85 04 
DA20! 85 04 
DA22! 

DA22! 40 
DA23! 

DA23! 

DA23! 

DA23! 

BA23! 

DA23! 

DA23! 

DA23! AA 
DA24! FOFC 
BA2A! 45 F5 
DA28! 48 
DA2?i 8A 
DA2A! 48 
DA2B! 38 
BA2C! E? 28 
DA2E! 10« 
SA30! 18 
DA31! 4? 50 
DA33! 

DA2E* OO 


BCC BSCL2 
ADC *07F 


BSCL7 STA BASIL 

ASL A ! 

ASIA 

ORA BASIL 

STA BASIL 

STA BAS2L 

LBA BAS1H 

CLC 

ABC *4 

STA BAS2H iPOINTER TO PAGE 2 


COPT BASlLrH INTO RXSILtH 
AND BAS2L,H INTO 8XS21 rH 

to hake an extra pair of pointers 

FOR SCROLLING, FTC, 


COPY LDA BAS1H iCQPY POINTERS 

STA 8XS1H 
LDA BAS2H 
STA BXS2H 
LDA BASIL 
STA BXS1L 

STA BXS2L {NOTE BAS2L. ALUAYS SAhir AS 'BASIL 
RTS7 RTS 


HORIZONTAL SCREEN SHIFT ROUTINE 


HSHIFT TAX ISAVF RQRI7 DELTA 

BEQ RTS7 ,RETURN IF DEI TA=0 
LDA CV 

PHA {SAVE CV ON STACK 

TXA 

PHA ISAVE OFFSET ON STACK 

SEC 

SBC *40, 

BPL OKDEl.T 
CLC 

ADC *80, iCALC (DEITA+40) HOB 80 
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BA33! 48 

OKOaT 

PHA 

{SAVE ON STACK 

BA34! A? 17 


UA 423, 


DA36! 85 F5 


STA CD 

UNIT RQU COUNTER 

BA38! 20 FI 09 

L0P1 

JSR BASCAL 

{CALC POINTERS 

DA3ti AO ?7 


LBT 439, 


DA39! B) FO 

L0P2 

IDA (BASIL)*! 

{GET DISABLE CHAR 

DA3F! 99 0002 


STA BUFFER*! 

{COPY INTO IFFr HALF OF BUFFER 

BA42! B1 F2 


LBA (BA-S2L)*! 

{GET HIDDEN CHAR 

BA44! 99 2802 


STA BUFFER+40 

,,Y (COPY INTO RIGHT HAlF OF BUFFER 

BA47! 88 


DEY 


BA48! 10F3 


BPL L0P2 

{REPEAT FOR OHQLF ROU 

DA4A! 68 


PLA 


BA4I! 48 


PHA 


BA4CI AA 


TAX 

{GET (DELTA+40) HOD BO IN X 

DA4I! AO 27 


LOT 439, 


DA4F1 CA 

misi_p 

BEX 


BA50! lOtt 


BPL NOURP) 


BA52! A2 4F 

DA-54! 


LBX 479, 

{BUFFER INDEX DRaP-AROIMD 

DA50S 00 

DA-54! BD 0002 

HOUftPi 

LDA BUFFER,X 

{GET FROM BUFFER 

DA-57! 81 FO 


STA (BASIL),X 

{HRITE DISA8LF CHAR 

DA-59! 88 


DEY 


DA5A! 10F3 


BPL VISLP 

{LOOP 40 DISABLE CHARS 

DA5C! AO 27 


LDY 439, 


base: ca 

HIDNLP 

BEX 


DA5F! lOtt 


BPL HQ14RP2 


DA41! A2 4F 

DA43! 


LBX 479, 

{BUFFER INDEX HRAP-AROUND 

DASFtOO 

DA4J! BD 0002 

H0URP2 

LDA BUFFER,X 


BA/S4! 91 F2 


STA (BAS2L),Y 

{WRITE A HIDDEN CHAR 

BA48! 88 


DEY 


DA49! 10F3 


BPL HtDfLP 

{LOOP 40 HIDDEN CHARS 

DA4I! C6 F5 


DEC CD 


DA48! IOC? 


BPL LQP1 

{REPEAT ALL RODS IN PAGE 

DA6F! 68 


PLA 

{DISCARD DELETA440 HOD 80 

DA70! 68 


PLA 

{GET PLAIN DELTA 

DA71! 18 


CLC 


DA72! 6D 11BF 


ADC NIEFT 


DA75! 86 11BF 


STA NLEFT 

{UPDATE COUNT OF CHARS TO LEFT 

DA78! 68 


PLA 


DA79! 85 F5 


STA CU 

{RESTORE CD 

BA7B! 4C F109 

DA7E! 

DA7E! 


JHP BASCAL 

{AND POINTERS AND RETURN 

1 - 



DA7E! 

* 

i 



BA7E! 

{ HGRIZ TAB TO HEX! KULT OF 40 

DA7E! 

DA7E! 

» 

f 

4 



HfAB 

LDA NLEFT 


DA7E! 

DA7E! AD 118F 

BA81! C9 14 


CAP 420, 


DA83! BOtt 


BCS TABJ 


DA85! A9 28 

TAB2 

LDA 440, 
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PAGE - 2t BIOS FILE! BIOS!SCREEN,TEXT 


DAB7! 

BA8J* 

DWMI 

BA87I 

mr, 

DAQC! 

BASF! 

DA92! 

DA92! 

DA92! 

DA92! 

DA92! 

DA92! 

DA92! 

BA92! 

DA92! 

DA92! 

DA92! 

DA95! 

DA94! 

DA98! 

BA9A! 

DA9C! 

DA9E! 

DAAt! 

DA9C* 

DAAli 

DAA2! 

baas: 

DAA7I 

DAA9S 

DAAJi 

DA94* 

DAAB! 

oaac: 
baa n 

DAACi 
DAAEi 
DABO! 
DAB2! 
DAW! 
DABS! 
DABS! 
DAW* 
DAW! 
DABI! 
DA AM 
DABB! 
DABE! 
DABE! 
DABE! 
DABE! 
DABE! 
FOO! 
FOO! 


DO** 


BNE DOIT 

00 



A9 00 

TAB3 

LDA *0 

00 



38 

DOIT 

SEC 

ED11BF 


S8C HLFFT 

4C 230A 


JHP HSHIFT 


iCALC DELTA 
.SHIFT ARB RETURN 


ADJUST ROUTINE DOES HORIZ 
SCROLL TO KEEP CURSOR VIABLE 


AB 15BF 

ADJUST 

LDA CONFLGS 


4A 


LSR A 

IIS AUTO-FOLLOW (BIT I) TRUE? 

90tt 

A5F4 


BCC ADJRTS 

LDA CH 

.NO. IGNORF 

C9 14 


CUP 120, 

.CURSOR LESS THAN 20? 

BOt* 


DCS ADJOK 

.NO. CONTINUE 

40 89DA 


JHP TAB3 

IYESi TAB FUQ IE FT AND RETURN 

00 

38 

ED IIDF 

30t* 

C9 25 

BOtt 

ADJOK 

SEC 

SBC NLEFT 

BNI AIULFT 

CNP 437. 

BCS ADJRT 


00 

40 

ADJRTS 

RTS 

.DON'T ADJUST 

00 

A4 F4 

CO 4D 

BOt* 

38 

F9 24 

4C 23DA 

ADJRT 

LDY CH 

CPY 477, 

BCS FARRT 

SEC 

SBC 434, 

JHP HSHIFT 


00 

4C 85DA 

FARRT 

JHP TAB2 


00 

4C 23BA 

ADJLFr 

JHP HSHIFT 



.INCLUDE BIOS!TOP.TEXT 


00 00 00 <W 00 00 00 


,QRG OfFOO 
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FOOi 

FOO! 

FOO! 

FOOi 

FOO! 

FOOI 

FOO! 

FOOi 

FOO! 

FOO! 

FOO! 

FOO! 

FOO! 

FOO! 

FOJ! 

F06! 

FO?i 

FFOO! 

FOF! 

FF121 

F15! 

F18! 

F18! 

FIE! 

F21! 

F24! 

F24! 

F24! 

F24! 

F24! 

FF24! 

FF24! 

F24! 

F24! 

F24! 

F24! 

F24! 

F24! 

F2?i 

F2A! 

FS! 

F3! 

FF2F! 

F30! 

F33! 

FF34! 

FF37! 

F3?! 

F3A! 

F3C! 

F39! 

F3F! 

F40! 

F40! 

F40! 


TOP PORTION OF BIOS FOLDS IN AND OUT BIOS DOOO BANK 


MAIN BIOS JUMP TABLE CALLED FROM INTERPRETER 


4C tm 

JHP QCREAD 

•CONSOLE READ 

4c m 

JMP QCURITF 

{CONSOLE URITE 

c mt 

JHP QCTNIT 

rCONSOLF. INIT 

4 c mi 

JMP QPURITE 

iPRTNIFR URITE 

4 c mt 

JHP QPINIT 

•PRINTER INIT 

4 c mt 

JHP QIWRITF 

{DISK URTIE 

4 c tm 

JHP QDREAD 

(DISK READ 

4c mt 

JHP QDJNIT 

{DISK INIT 

4C tm 

JHP GRREAD 

•REMOTE READ 

c m 

JHP BNRITF 

{REMOTE URITE 

4c mt 

JHP GRtNIT 

•REMOTE INIT 

4 ctm 

JHP GGURITE 

{GRAPHIC URITF 


STRIP LOCAL RETURN ADDRESS 
STRIP PASCAL ADDRESS AND SAVE IN RETl.i REIH 
THEN RESTORE LOW. RET ADOK AND RETURN 
MEANWHILE UNFOLDS BIOS INTO DXXX 


85 oc 

SAVERET STA Til 

{SAVE A REG 

AD 33C0 

LDA 0C0B3 

4UNFOLDS BIOS INTO DXXX 

48 

PLA 


85 00 

STA TT2 

{LOCAL RET ADDRESS 

68 

PLA 


85 0£ 

STA TT3 


68 

PLA 


8D 1ABE 

STA RETL 

{PASCAL RETURN ADDRESS 

68 

PLA 


80 1BBE 

STA RETH 


A5 OE 

LDA TT3 


48 

PHA 

{RESTORE LOCAL RETURN ADDRESS 

A5 00 

LDA TT2 


48 

PHA 


A5 OC 

SKIPSAU LDA m 

{RESTORE A REG 

60 

RTS 

{BACK TO LOCAL CALLER 
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F40! 

FF401 

FF40! 

F40I 

FF40! 


FOLDS INTERP INTO DXXX 
THEN RETURNS TO PASCAL VIA 
RETURN ADDRESS SAVE IN REIT, RETH 


F40i 


F40! 85 OC 

G08ACK 

sta tti 

{SAVE A REG 

F42! AO 1BBF 


LDA RETH 


F45! 48 


PHA 


F46I AD IABF 


LDA RETL 


F4?l 48 


PHA 

{PUI PASCAL RETURN ADDRESS ON STACK 

F4AI AD 8BC0 


LBA 0CO8B 

{FOLD INTF.RP INTO DXXX 

F4Di A5 OC 

SKIPIT 

LDA TT1 

{RESTORE A REG 

FF4F! 60 


RTS 

{AND BACK TO PASCAL 


FF50I 

FF50I 

F50! 


FF50! 

FF50! 

F50! 


PRESERVE OLD IORTS LOCATIONS 


F50I 

F50i 00 00 00 00 00 00 00 .ORG 0FF58 
FFS8! 


FF5B! 60 

FF5?! 

FF59! 

FF5?! 

FF59! 

FF5f! 

FF5?{ 

FF59! 


IORTS RTS {FIXED RTS OP CODE 


THIS CONCK VECTOR CALLED FRQH DOS 
IF ROVFHf CHANGE EOIJATI JN DOS 


F5?: 

FF59! 4C 81D6 
FF5C! 

F5C! 

FF5C! 

FF5C! 

FF5C! 

FF5C! 

FF5C! 

FF5C1 

FFSC! 

FF5C! 20 24FF 
F5F! 20 81DA 
F62! 4C 40FF 
F65i 
F65! 

F65! 

F65I 

F65! 

F65! 

F65! 

F65! 


JHP CONCK 


THIS CONCK VECTOR USED BY KEPRESS FUNCTION 
IF HOVED, CHANGE KEYPRESS FUNCTION 


JSR SAVEREI 
JSR CONCK 
JHP G08ACK 


EACH BIOS ROUTINE UNFOLDS DXXX RAH 
THEN DOES ITS BUSINESSf THEN 
FOLDS RAH AGAIN 


FF65! 

FAS! 
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FFA5! AD 83C0 

FF68! 4C DDD5 

JSTART 

FF68! AD 83C0 

FF6EI 4C BCOfi 

JRESET 

FF71! AD 88T0 

FF74I 4C S2D1 

FF77I 

FFOii 77FF 

JPASCAL 

FF77! 20 m 

FF7A! 20 A2D7 

FF7IJ 4C 40FF 

FFQfii 

FF04S 80FF 

0CREAD 

FF80J 20 24FF 

FF83! 20 D007 

FF86! 4C 40FF 

FF89! 

FF075 89FF 

BCURITE 

FF89I 20 24FF 

FF8C5 20 34D7 

FF8F! 4C 40FF 

FF92I 

FFOA* 92FF 

0CINIT 

FF92J 20 24FF 

FF95! 20 3088 

FF98I 4C 40EF 

FF98! 

FFQB5 9BFF 

BPURtTF 

FF9B! 20 24FF 

FF9E1 20 8307 

FFAl! 4C 40FF 

FFA4I 

FFA4I 

FF1CS A4FF 

QPINTT 

TFA4I 20 24FF 

FFA7! 20 3COO 

FFAAi 4C 40FF 

FFA&i 

ffW ADFF 

QlWRITf 

FFADi 20 24FF 

FFBO! 20 4000 

FFB3! 4C 40FF 

FFB4! 

FF165B6FF 

QDREAD 

FF&6! 20 24FF 

FFB9! 20 04B0 

FFBCi 4C 40FF 

FFBfi 

FF190 BFFF 

QDINIT 

FFBf I 20 24FF 

FFC21 20 4EBB 

FFCSi 4C 40FF 

FFC8! 

FFIC&C8FF 

QRREAO 

FFC8I 20 24FF 

QR8RITF 


LDA or.083 i«PRGT, UNFOLD 

JHP START 
[M OCOB3 
JHP RESET 

LDA 0C.08R iFOLD IN IMTFftP 

JHP GOFQRIT 


JSR SAVFRET 
JSR CREAD 
JHP GOBACK 


JSR SAVFRET 
JSR CKRITE 
JHP GOBACK 


JSR SAVFRET 
JSR CINIT 
JHP GOBACK 


JSR SAVFRET 
JSR P«RITF 
JHP GOBACK 


JSR SAVFRET 
JSR PINtT 
JHP GOBACK 


JSR SAVERET 
JSR D’JRITF 
JHP GOBACK 


JSR SAVERET 
JSR BREAD 
JHP GOBACK 


JSR SAVERET 
JSR DIHIT 
JHP GOBACK 


JSR SAVERET 
JSR RREAB 
JHP GOBACK 


JSR SAVERET 
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FILE! BIOStTOPiTEXI 


FCi! 20 09D8 

JSR (WRITE 

FFCEi 4C 40EF 

JHP GOBACK 

FFD1! 

FFIFt DiFF 

FF01! 20 24FF 

QRINIT JSR SAVEREI 

FFW! 20 9C07 

JSR RINIT 

FFD7! 4C 40F 

JHP GOBACK 

FFDA! 

F22t DAFF 

FDA! 20 2+FF 

ORITE JSR SAVERET 

FD8! 20 58FF 

JSR IORTS 

FEO! 4C 40FF 

JHP GOBACK 

FFE3! 

FEI! 

• 

FEJi 

i 

> 

FFE3! 

; NHI AND RESET VECTORS 

FE3! 

i FOR NOUr NO INTERRUPTS, 

FFEJ! 

A 

f 

FEJ! 

* 

! - - - — - 

FE3! 

FEJ! 

FEJ! 00 00 00 00 OO 00 00 

,ORG OfFFA 

FFA! 

FFA! 

FFFA! 0100 

.WORD 1 

FF8! A5FF 

,«ORD JSTART 

FFA! ABFF 

,UORD JRESET 

FFC! ABF 

.BORD JRESET 

FFE! ABEF 

,UQRD JRESET 

WOO! 

OOOO! 

0000! 

A 

f - “ - 

OOOO! 

4 

1 

0000! 

} THAT'S ALL FOUS,,,, 

OOOO! 

f 

OOOO! 

A 

f 

OOOO! 

* 

, _ - — — 

OOOO! 

OOOO! 

OOOO! 

OOOO! 

OOOO! 

OOOO! 

OOOO! 

OOOO! 

,ENO 
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HAYftE SOON 


i RELFA.SE VERSION 1 
iSTARI POINT FRQH BOOT 
iNHt VECTOR 
!RESET VECTOR 
ilRQ VECTOR 









PACE- 24 BIOS 


FILE!, SYHKJLTABLF BUrtP 


AB - fosolute IB - Label UD - Undefined HC - teem 
RF - Ref DF - Def PS - Proc FC - Func 
PB - Public PV - Private CS - Consts 


ASJlfT 

LB DABB! 

ADJOK 

LB DAA1! 

ADJRT 

LB DAAC! 

ADJRTS 

LB DAAB! 

ADJUST 

LB DA92! 

ADVANCE 

LB D9B4! 

ADVRIS 

LB D9R 

ftftStH 

AB OOfli 

BASIL 

AB OOFO! 

BAS2H 

AB 00F3! 

BAS2L 

AB OOF2! 

BASCAL 

LB D9F1! 

BELL 

LB D957! 

BELL2 

LB D95l 

BIOS 

PR-! 

BREAK 

AB 8F16! 

BSCL2 

LB DA02! 

BSRET 

LB D984! 

BUFFER 

AB 0200! 

BUFOK 

LB D717! 

BUMP 

LB D72i 

BXSIH 

AB 0005! 

BXS1L 

AB 0004! 

BXS2H 

AB 0007! 

BXS2L 

AB 0004! 

CBUFLFN 

AB 004E! 

CENIT 

LB 0791! 

CENR 

LB 085 

GENU 

LB D83F! 

COM2 

LB D843! 

CH 

AB 00F4! 

CHECKH 

AB OOOB! 

CHECKL 

AB 000A! 

CINIT 

LB D734! 

CIKIT2 

LB 075 

CKCTFL 

LB D8F3! 

CKEXIT 

LB D725! 

cm 

LB D44B! 

CKPAGE 

LB D447! 

CKPTRH 

AB 0009! 

CKPTRL 

AB 0008! 

CIFOL 

LB D9A 

flFAR 

LB H989! 

CLMXL 

LB D98F! 

CLOOP 

LB D9A9! 

CLRTO 

LB D7F4! 

CLRIOL 

LB D7AD! 

clruk 

LB D81C! 

CLRI03 

LB D7B 

CN058YTS LB D40D! 

CN07BYTS LB 0411! 

CNTRL 

LB D8F1! 

COHCK 

LB D4CA! 

COKBUF 

AB 03B1! 

CONCK 

LB 0481! 

CONFLGS 

AB BF) 

COPT 

LB DAW 

C0PY1 

LB 0932! 

C0PY2 

LB 0930! 

CR 

LB D9L8! 

CREAD 

LB 0742! 

CRFAD2 

IBD771! 

CTRLCH 

LB B87 

CTRLJKP 

LB D887 

CV 

AB 00F5! 

CORITE 

LB 0700! 

DIKIT 

AB D004! 

BMPRTS 

LB 0733! 

DOCTRL 

IB D8FC! 

DOIT 

LB DAS 

DQNECK 

LB D71D, 

DQPSX 

LB D8B5! 

BREAD 

AB 0040! 

PRESET 

AB D017! 

WRITE 

AB D03C! 

ESCAPE 

LB D90C! 

FSCNT 

AB BF1 

FARRT 

LB DAB8! 

FIRST 

AB OOFO! 

FORK 

LB D97A! 

COBACK 

LB FF40! 

GOFORIT 

AB 0152! 

GOTOXY 

LB D912! 

HIONlP 

LB DA5 

HOhE 

LB im 

HSHIFT 

LB DA23! 

HTAB 

LB DA7E! 

icon 

LB D7A3! 

INVERT 

LB D9EC! 

IORTS 

LB FF58! 

ISER 

LB D7t 

JDQNCK 

LBD6E3 

JINV 

LB D979! 

JPASCA1 

LB FF71! 

JRESET 

LB FF4B! 

JRET 

LB 0949! 

JSTART 

IB FF45! 

JUMP1 

AB OOC 

JUHP2 

AB 0003 

LE 

LB 0910! 

LF2 

LB 09231 

LFFLAG 

AB BFOFi 

LFPASS 

LB D33A! 

LOP) 

LB 0A38! 

L0P2 

LB DA3 

NCTRLS 

AB 000C 

NUBS 

LB 0973! 

NLEFT 

AB BF11! 

NOCRY 

LB D471! 

NOPROK 

LB D434! 

NOTBRK 

LB D4F4! 

NOTFLIJS 

LB 07C 

HOTFOL 

LBD4B5 

NOTK 

LB DMA! 

HOTSEB 

LB D8DC! 

NQTSTOP 

LB D4E4! 

N0URP1 

LB 0A54! 

N0WRP2 

LB DA43! 

NrrAB 

LB D4E 

MX TO® 

IBB5F3 

NXTYP 

LB .0417! 

OFFLFT 

LB D9D3! 

OFFLINE 

LB D84B! 

OFERT 

LB D9DE! 

OKOElT 

LB DA33! 

OOPSY 

LB DSt 

PINIT 

LB D788 

PWRITE 

LB 0830! 

BCIHIT 

LB FF87! 

QCRFAD 

LB FF77! 

OCURtTE 

LB FF80! 

QBINIT 

LB FFB4! 

QDRFAB 

LB FFf 

QBURTTE 

LBFFA4 

QGURITE 

LB FFDA! 

QPIKTT 

LB FF9B! 

QPURITF. 

LB FF92! 

QRINTT 

LB FF01! 

QRREAD 

LB FFBfi 

QRUftITE 

LB FF( 

RANK 

ABBF14 

RANBL 

AB BF13! 

RCOK 

LB D850! 

RESET 

LB D50CI 

RETK 

AB BflB! 

RETL 

AB BF)A! 

REVlf 

LB D?< 

RINIT 

LB D79C 

RNfllNC 

LB 0487! 

RNDOK 

LB D48F! 

RPIR 

AB BF18! 

RREAD 

LB D84E! 

RSER 

LB D84C! 

RTS7 

LB Da! 

(WRITE 

LB IBO? 

SAOERET 

LB FF24! 

SCRHODE 

AB BFOE! 

SCROLL 

LB D928! 

SEQRF.T 

LB D3D8! 

SERI 

LB D7B9! 

SEIY 

LB 031 

SKIPIORT IB D415 

SKIPn 

LB FF4D! 

SKIPSAV 

IB FF30! 

SKPCOUr 

LB D948! 

SLTTYPS 

AB BFF8! 

START 

LB D5DD! 

STARTUP 

LB D4< 

STOMV 

LB D9B3 

STOR 

LB B42E! 

ST0R2 

LB D9FI! 

STORE 

LB D9C0! 

STORE! 

LB D9D5! 

ST0RE2 

LB D9E9! 

SYSCOR 

AB 00! 

TAB2 

LB DA85 

TAB3 

LB BA89! 

TEMPI 

AB 09F4! 

TEHP2 

AB 00F7! 

TRYiixr 

LB D429! 

TSTKBO 

LB D49A! 

TT1 

AB OOi 

TT2 

ABOOOO 

n3 

AB 009E! 

UPPER 

LB D3EA! 

VIDGUT 

LB D7E7! 

VISLP 

LB BA4F! 

V0UT2 

LB D89F! 

UftIT 

LB 04, 

UATT2 

LB D474 

UATT3 

LB D477! 

IKON 

LB D81F! 

UPRN 

LB D011! 

UPTR 

AB BF19! 

USER 

LB D7F7! 

XOK 

LB 03 

YOK 

LB D8C9 

ZERLP 

LB D5E51 

ZFROH 

AB 0001! 

7FR0L 

AB 0000! 
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Current minimum space is 8174 words 

D64E* ECD9 

Wft 7 EDA 

D75W 89BA 

D743t 92DA 

0445* 7IFF 

Assembly complete! 1250 lines 

0 Errors flatted on this Assembly 
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* INTERNATIONAL 
WBSm A PPLE CORE 

1 ™ P. O. BOX 976, DALY CITY, CALIFORNIA 94017 USA 


APNOT 


£ 


PASCAL - PEEKS & POKES 
BY DAN SOKAL 

This program has been designed to be added to the 
Pascal SYSTEM.LIBRAY. See section 4.2 in the 
reference manual for info on the Librarian. 

(*SS+,LPRINTER:*) 



PEEK and POKE 


* 

* Dan Sokol 3 Dec 79 * 

* * 

* * 

************************************) 

unit PEEKPOKE; intrinsic code 26; 

interface 

procdure POKE (var ADDR,DATA:integer); 
function PEEK (var ADDR: integer): integer; 


implementation 

type PA=packed array CO..11] of 0..255; 
MAGIC=record case boolean of 

true : (INT: integer); 
false : (PTR: A PA); 
end; 

var CHEAT:MAGIC; 

procedure TEST (var DATA: integer); forward; 

procedure POKE; 
begin 

TEST(DATA); 

CHEAT.INT:=ADDR; 

CHEAT.PTR A COD:=DATA; 
end; 


This application note has been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this in¬ 
formation in any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core is a non-profit or¬ 
ganization unaffilliated with Apple Computer, Inc. or any other manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 




function PEEK; 
begin 

CHEAT.INT:=ADDR; 

PEEK:=CHEAT.PTR A C0 1 ; 
end; 

procedure TEST; 
begin 

DATA:=abs(DATA mod 255); 
end; 

(★MAIN PROGRAM*) 
begin 

(★DUMMY PROGRAM*) 
end. 

SAMPLE SUBROUTINE FOR KEYPRESS 

When you use BINDER.CODE to setup your system to an 
external terminal, or to an 80 column board (Like the 
M & R Sup.R.Termina l), the Apple wilt not recognize a 
KEYPRESS from that terminal. This subroutine will 
correct that - it uses the PEEK 8 POKE above. 

(★SI+*) 

function KEY: boolean; 

var keyboard, TEMPrinteger 
begin 

KEYBOARD:=-16384; TEMP:=PEEK (KEYBOARD); 
if TEMP> 128 then KEY: true else KEY:=false; 
end 
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(*I used segment 26*) 


(♦Format is : *' 
(♦POKE (addr,data); *) 
(♦data:=PEEK(addr); 


Both addr and data 
must be INTEGER variables 
(not constants) 

To use in a program you 
must follow the program 
name with : 

USES PEEKPOKE; 

*) 


(* this defines a variant *) 
(* record which will map *) 
(* to an absolute hardware *) 
(* adress in the Apple. *) 


(* This procdure assures *) 
(* only vaild data will *) 
(* get poked :) 




. INTERNATIONAL 

jHHilLAPPLE CORE 

P. O. BOX 976, DALY CITY, CALIFORNIA 94017 USA 


APNOT 


Text Pages 


TEXT SCREEN MAPPING AND USE 

The Apple II has two "pages" of text that it can display. Text page one resides in 
memory from decimal 1024 to 2047 ($400-$7FF). Page two resides from 2048 to 3072 
($800 to $C00) 

PAGE SWITCHING 

It is possible to switch between pages by "POKING" from BASIC. The default setting 
is page one. If you wish to display page two, the statement "POKE—16299, 0” 
will display it. “POKE—16300,0" will return the display to page one. (You must set 
LOMEM:3072 in order to protect page two from being clobbered.) 

“POKING” TEXT 

It is possible to place characters on either screen by “POKING” them directly. In order 
to do this you need to know the memory address of the spot into which you wish to poke 
the character and the decimal value of the character itself. The following two tables 
will give you this information, but first a demonstration. 

DEMONSTRATION: NO “PRINT" STATEMENTS 


10 

CALL 

-936 



100 

POKE 

1461,129: 

REM 

,. A «. 

1 10 

POKE 

1463, 144- 

REM 

»■ p ,* 

120 

POKE 

1465, 144: 

REM 

i • p t* 

130 

POKE 

1467,140 

REM 

,i 

140 

POKE 

1469,133 

REM 

“E" 

1 50 

POKE 

1472,157: 

REM 


160 

999 

POKE 

END 

1473,155: 

REM 

THE OTHER J 


Text Screen Maps 


PAGE ONE PAGE TWO 


LINE # 

POKE ADDRESS 

LINE # 

POKE ADDRESS 

00 — 

- 1024 

00 — 

— 2048 

01 — 

— 1152 

01 — 

— 2176 

02 — 

— 1280 

02 — 

— 2304 

03 — 

— 1408 

03 — 

— 2432 

04- 

— 1536 

04 — 

— 2560 

OS— 

— 1664 

05 — 

— 2688 

06 — 

— 1792 

06 — 

— 2816 

07 — 

— 1920 

07 — 

— 2944 

08 — 

— 1064 

08 — 

— 2088 

09 — 

— 1192 

09 — 

— 2216 

IO- 

— 1320 

lO- 

— 2344 

H- 

— 1448 

ll — 

— 2472 

12— 

— 1576 

12 — 

— 2600 

13 — 

— 1704 

13 — 

— 2728 

14 — 

— 1832 

14 — 

— 2856 

15 — 

— 1960 

. 15 — 

— 2984 

16 — 

— 1104 

16 — 

— 2128 

17 — 

— 1232 

17- 

— 2256 

18 — 

— 1360 

18 — 

— 2384 

19 — 

— 1488 

19 — 

— 2512 

20 — 

— 1616 

20 — 

— 2640 

21 — 

— 1744 

21 — 

— 2768 

22 — 

— 1872 

22 — 

— 2896 

23 — 

— 2000 

23 — 

— 3024 


ADDRESSES SHOWN ARE FOR THE FIRST CHARACTER IN EACH LINE 
—LINES ARE 40 CHARACTERS LONG 

This application note has been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this in¬ 
formation in any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core is a non-profit or¬ 
ganization unaffilliated with Apple Computer, Inc. or any other manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
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aracfer 
splay Values 


CHAR 

NORMAL 

INVERSE 

FLASH 

CHAR 

NORMAL 

INVERSE 

FLASH 

@ 

128 

0 

64 

\ 

161 

33 

97 

A 

129 

1 

65 

** 

162 

34 

98 

B 

130 

2 

66 

# 

163 

35 

99 

C 

131 

3 

67 

$ 

164 

36 

100 

D 

132 

4 

68 

% 

165 

37 

101 

E 

133 

5 

69 

& 

166 

38 

102 

F 

134 

6 

70 


167 

39 

103 

G 

135 

7 

71 

( 

168 

40 

104 

H 

136 

8 

72 

) 

169 

41 

105 

1 

137 

9 

73 


170 

42 

106 

J 

138 

10 

74 

+ 

171 

43 

107 

K 

139 

11 

75 

* 

172 

44 

108 

L 

140 

12 

76 

— 

173 

45 

109 

M 

141 

13 

77 


174 

46 

110 

N 

142 

14 

78 

/ 

175 

47 

111 

0 

143 

15 

79 

0 

176 

48 

112 

P 

144 

16 

80 

1 

177 

49 

113 

Q 

145 

17 

81 

2 

178 

50 

114 

R 

146 

18 

82 

3 

179 

51 

115 

S 

147 

19 

83 

4 

180 

52 

116 

T 

148 

20 

84 

5 

181 

53 

117 

U 

149 

21 

85 

6 

182 

54 

118 

V 

150 

22 

86 

7 

183 

55 

119 

w 

151 

23 

87 

8 

184 

56 

120 

X 

152 

24 

88 

9 

185 

57 

121 

Y 

153 

25 

89 

♦ 

186 

58 

122 

2 

154 

26 

90 

♦ 

107 

59 

123 

[ 

/ 

] 

155 

27 

91 

< 

188 

60 

124 

156 

28 

92 

- 

189 

61 

125 

157 

29 

93 

> 

190 

62 

126 

< 

158 

30 

94 

? 

191 

63 

127 


159 

31 

95 





SPACE 

160 

32 

96 






now To Use it 


LOOK! 

NO '‘PRINT” STATEMENTS! 

too CALL -93A: POKE 74,0. POKE 
75,12: POKE 204,0: POKE 205 
, 12: REM SET LOMEM l. VAR PTR 
tlO POKE 1024, 144: POKE 1025,129 
: POKE 1026,135 POKE 1027, 

133: REM POKE "PAGE'- IN 10 PG 1 
120 POKE 34,2: VTAB 3 LIST 
130 TRACE : DIM CS(30> 

140 C$="SOO<400. 7FFM E88AG : ' 

150 FOR CHR=1 TO LEN(CSt) 


160 POKE 511+CHR. ASC<CS<CHH)> 
170 NEXT CHR: CALL -144 
180 POKE 2053,50 POKE 1029,49 
190 FOR T=1 TO 5 
200 POKE -16299, 0 REM PAGE 2 
210 FOR D=1 TO 100: NEXT D 
220 POKE -16300,0. REM PACE 1 
230 FOR D=1 TO 100: NEXT D 
240 NEXT T: NOTRACE CALL -936 
: LIST : POKE 34,0: END 


Line 100 

—Clears the screen and sets LOMEM to 3072. 

Line 110 

—Pokes the word "page” into the upper left corner of page one (character by character). 

Line 120 

—Sets scrolling window and lists the program. 

Line 130 

—Sets trace mode and dimensions C$. 

Line 140 

—Sets C$ equal to a couple of monitor commands. “800 < 400.7FFM” is a command 
which moves the contents of page one to page two display memory. "E88AG" tells 
integer BASIC to continue where it left off. 

Lines 150-170 

—Poke the commands (C$) into the input buffer, character at a time, then call a monitor 
routine which executes the contents of the buffer (The input buffer is from 512 to 
767 decimal or $200 to $2FF Hex). 

Line 180 

— Pokes an inverse “2” into page two and an inverse “1“ into page one. 

Lines 190-240 

—Switch from page one to page two a few times, then exit from the program with page 
one set and the program listed. 
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APPLE CORE 
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APNOT 


APPLICATIONS NOTE FOR PASCAL 

PASCAL LONG INTEGER FIX 


An error in the implementation of long integers in the Ap'ple 
PASCAL language system results in a stack crash during a compare 
operation. 

This program is designed to repair the library module 
LONGINTEGER. To use, type the program in, then compile and 
execute. All libraries should be updated with this program. Save 
the text for possible future use. 


This application note has been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this in¬ 
formation In any way and cautions that modifications may void a manufacturer's warranty. The International Apple Core is a non-profit or¬ 
ganization unaffiliiated with Apple Computer, Inc. or any other manufacturer. Apple 11, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 
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($I~) 

PROGRAM FIXCOMPARE; 

TYPE DISKINFO = RECORD 

DADDR .-INTEGER; 

LENG: INTEGER 
END; 

NAME = PACKED ARRAY[1..8) OF CHAR; 

SEGDIC = RECORD 

DINFO: ARRAY[0..15] OF DISKINFO; 

SEGNAME: ARRAY (0, .15] OF NAME; 

FILLER: ARRAY [1„416] OF INTEGER 
END; - 

BLOCK = PACKED ARRAY[0..511] OF 0..255; 

VAR I,J:INTEGER; 

NOTFOUND:BOOLEAN; 

F.-FILE; 

S:STRINC; 

BLOCKZERO: SEGDIC; 

DATA:BLOCK; 

PROCEDURE READERROR; 

BEGIN 

WRITE('BAD BLOCK IN LIBRARY'); EXIT(PROGRAM) 

END; 

BEGIN 

NOTFOUND:=TRUE; 

REPEAT 

WRITE('NAME OF LIBRARY FILE:'); READLN(S); 

RESET(F.S); 

UNTIL EOF OR (I0RESULT=0); 

IF BLOCKREAD(F,BLOCKZERO,1,0) <> 1 THEN READERROR; 

FOR I := 0 TO 15 DO 
BEGIN 

IF BLOCKZERO.SEGNAME[I] = 'LONGINTI' THEN 
BEGIN 

NOTFOUND := FALSE; 

J : = BLOCKZERO,DINFO[I].DADDR +1; 

IF BLOCKREAD(F.DATA,1,J)<>1 THEN READERROR; 

IF DATA[495]=244 THEN 
IF DATA[494]=208 THEN 
BEGIN 

WRITELN('LONG INTEGER PATCH BEING MADE'); 

DATA[494] :=240; 

IF BLOCKWRITE(F.DATA,1,J) = 1 THEN 
WRITELN('PATCH COMPLETE') 

ELSE 

WRITELN('ERROR WHILE WRITING PATCH, SEGMENT ',1) 

END 
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ELSE 

IF DATA[494)~240 THEN 
WRITELN('SEGMENT ',1, 

' - LONG INTEGER UNIT HAS ALREADY BEEN FIXED') 

ELSE 

WRITELN('CAN''T RECOGNIZE LONG INTEGER UNIT IN SEGMENT ',1) 

ELSE 

WRITELN('CAN"T RECOGNIZE LONG INTEGER UNIT IN SEGMENT ',1) 

END 

END; 

IF NOTFOUND THEN WRITELN('NO LONG INTEGER UNIT FOUND') 

ELSE WRITELN('PROGRAM COMPLETE'); 

END. 
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PASCAL HI—RES LOAD/SAVE TO BISK 


This demo program creates a hi-res picture in PASCAL, then saves it 
to disk. It is then reloaded and displayed* 

The "Uses Turtlegraphics M statement allocates space for the hi-res 
screen, and should be referenced even If Turtlegraphics are not 
actually used. Note that the M Close (P,Lock)" closes the file and 
places it permanently into the volume directory. 


This application note has been provided by an Apple Computer user. The International Apple Core does not guarantee the accuracy of this in¬ 
formation In any Way and cautions that modifications may void a manufacturer's warranty. The International Apple Core is a non-profit or¬ 
ganization unaffilllated with Apple Computer, Inc. or any other manufacturer. Apple II, Applesoft, and Apple Computer are trademarks of 
Apple Computer, Inc. 
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PROGRAM DEMOPIC; 

(* *) 

(* PROGRAM LOADS AND SAVES HIRES SCREEN TO DISK *) 

(* APPLE COMPUTER 12/79 BY JO £. CHARLIE KELLNER *) 
(* BASED ON "SLIDE SHOW" BY BILL ATKINSON *) 

(* *) 


USES TURTLEGRAPHICS, APPLESTUFF; 

CONST HXRESP1 ** 8192; 

VAR CHEAT: RECORD CASE BOOLEAN OF 

TRUE: (INTPART: INTEGER); 

FALSE: (PTRPART:"INTEGER); 

END; 

PROCEDURE DRAWPICS; (* THIS CAN BE REPLACED WITH ANY GRAPHICS ROUTINE *) 
BEGIN 

MOVETO (0,0); PENCOLOR (WHITE); 

MOVETO (279,0); TURN (90); 

MOVETO (279,191); TURN (90); 

MOVETO (0,191); TURN (90); 

MOVETO (0,0); PENCOLOR (NONE); 

MOVETO (75,95); WSTRING (' THIS IS A TEST '); 

MOVETO (28,5); WSTRING ('< PRESS RETURN TO EXIT PROGRAM >') 

END ; 

PROCEDURE BLOAD (FILENAME: STRING); 

VAR 10: INTEGER; 

F: FILE ; 

BEGIN 

CHEAT.INTPART:=HIRESP1; 

RESET(F,FILENAME); 

10: “BLOCKREAD (F, CHEAT. PTRPART'', 16); 

CLOSE(F,LOCK) 

END ; 

PROCEDURE BSAVE (FILENAME:STRING); 

VAR 10: INTEGER; 

F: FILE ; 

BEGIN 

CHEAT.INTPART:“HIRES? 1; 

REWRITE (F,FILENAME); 

10:“BLOCKWRITE (F,CHEAT. PTRPART'', 16); 

CLOSE (F.LOCK) 

END ; 

BEGIN (* MAIN PROGRAM *) 

INITTURTLE; 

DRAWPICS; 

BSAVE (':DEMO.PIC'); 

FILLSCREEN (BLACK); (* CLEARS HIRES SCREEN *) 

BLOAD (':DEMO.PIC'); 

REPEAT UNTIL KEYPRESS; 

TEXTMODE 

END. 
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PASCAL UNITS 


Modular programming means the separation of procedures and 
functions, or groups of them, from the main program. Source 
language modules are called UNITs, and are incorporated in libraries 
for use with Pascal programs. Units may consist of procedures, 
functions, or a combination of these, in Pascal and in assembly 
language. 

Separate compilation has several advantages in the development of 
any program, because it allows you to approach the task, as a group 
of smaller tasks which are linked together in a logical manner. The 
host program must contain a USES statement to utilize routines from 
the UNIT. 

There are two principal kinds of UNITs: Regular UNITs, and Intrinsic 
UNITs. When a host program USES a Regular UNIT, the UNIT'S code is 
inserted into the host program's codefile by the Linker. This needs 
to be done only once unless the UNIT is modified and recompiled; 
then it must be relinked into the host program. 

When a host program USES an Intrinsic UNIT, the UNIT's code remains 
in the library file and is automatically loaded into memory when the 
host program is executed. This keeps the size of the host program's 
codefile down; it also allows the UNIT to be modified and recompiled 
without the need to relink. If the UNIT resides in the 
SYSTEM.LIBRARY, the Linker will be called automatically. Otherwise, 
you must explicitly invoke the Linker. 

Pages 187-195 in the Pascal Reference Manual explain the syntax and 
structure of UNITs. 

Separate UNITs do not work in the current Pascal implementation. 
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DOS 3.2 DEMONSTRATION PROGRAMS 


The following programs demonstrate the various features of DOS 3,2. 
They are written for Applesoft and some of the programs will be 
difficult to convert to Integer Basic. 
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]LIST 


100 

REM 

TEST 

MON 


110 

LET 

D$ = 

CHR$ (4) 

120 

LET 

S$(l) 

= 

"NO MONITOR 

130 

LET 

S$ (2) 

= 

“MON 

C" 

140 

LET 

S$(3) 


“MON 

I" 

150 

LET 

S$(4) 


“MON 

0" 

160 

LET 

S$(5) 

*5 

“MON 

C,I" 

170 

LET 

S$(5) 

= 

“MON 

C,0" 

180 

LET 

S$(6) 

= 

“MON 

c,o” 

190 

LET 

S$(7) 

= 

“MON 

1,0" 

200 

LET 

S$(8) 

= 

“MON 

C.1,0" 

210 

HOME 





220 VTAB 1: HTAB 16: PRINT "TEST MON" 

230 FOR L = 1 TO 8 

240 VTAB L + 4: HTAB 5: PRINT "<"L M > "S$(L) 

250 NEXT 

260 VTAB 15: PRINT "ENTER A NUMBER (1-7): " 

270 PRINT : PRINT "PRESS 'ESC’ TO LEAVE TEST MON" 

280 VTAB 15: HTAB 23: GET G$ 

290 IF ASC (G$) = 27 THEN HOME : END 
300 LET G = VAL (G$) 

310 IF G < 1 OR G > 8 THEN 280 
320 PRINT 

330 PRINT D$"N0M0N I,0,C" 

340 HOME 

350 PRINT TAB( 20 - LEN (S$(G)) / 2);S$(G) 

360 PRINT : PRINT 
370 IF G = 1 THEN 390 
380 PRINT D$;S$(G) 

390 PRINT TAB( 11);"WRITING TO THE DISK": PRINT 
400 PRINT D$"OPEN TESTER" 

410 PRINT D$"WRITE TESTER" 

420 PRINT "THIS IS THE DATA TO THE DISK" 

430 PRINT D$"CLOSE TESTER" 

440 VTAB 12: PRINT TAB( 10);"READING FROM THE DISK": PRINT 
450 PRINT D$"OPEN TESTER" 

460 PRINT D$"READ TESTER" 

470 INPUT A$ 

480 PRINT D$"CLOSE TESTER" 

490 PRINT D$"DELETE TESTER" 

500 VTAB 20: PRINT "PRESS ANY KEY FOR THE MENU "; 

510 POKE - 16368,0 
520 GET A$ 

530 GOTO 110 

] 
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0 REM MAKE TEXT 
10 DIM A$(100):I = 0 
20 D$ = CHR$ (4): REM CTRL-D 
25 TEXT : HOME 

30 PRINT "THIS PROGRAM LETS YOU WRITE TEXT FILES." 
34 PRINT "YOU MAY TYPE ONE STRING AT A TIME." 

38 PRINT "A STRING MAY HAVE UP TO 239 CHARACTERS." 
40 PRINT : PRINT "(PRESS THE RETURN KEY TO QUIT)" 
50 POKE 34,7: VTAB 7 
52 I = I + 1 

54 PRINT "TYPE STRING (P;I;": 

56 INPUT A$(I) 

58 IF A$(I) < > "" GOTO 52 

60 PRINT 

62 INPUT "FILE NAME TO STORE ? ";N$ 

65 IF N$ < > "" GOTO 70 

67 PRINT : PRINT "FILE NOT SAVED": GOTO 140 
70 PRINT D$;"OPEN ";N$ 

80 PRINT D$;"WRITE ";N$ 

90 PRINT I - 1 

100 FOR J = 1 TO I - I 

110 PRINT A$(J) 

120 NEXT J 

130 PRINT D$;"CLOSE ";N$ 

135 PRINT : PRINT "TEXT FILE SAVED" 

140 POKE 34,0: END 


Jl-3 




0 REM GET TEXT 
5 TEXT : HOME 

10 D$ = CHR$ (4): REM CTRL D 

12 PRINT "THIS PROGRAM RETRIEVES TEXT FILES” 

14 PRINT "CREATED BY THE 'MAKE TEXT' PROGRAM 

16 PRINT : PRINT "MON C,I,0 IS IN EFFECT." 

18 PRINT 

20 INPUT "NAME OF TEXT FILE? ";Z$ 

22 PRINT D$;"MON C,I,0" 

24 PRINT 

30 PRINT D$;"OPEN ";Z$ 

40 PRINT D$;"READ ";Z$ 

50 INPUT I 
55 DIM A$(I) 

60 FOR J = 1 TO I 
70 : INPUT A$(J) 

80 NEXT J 

90 PRINT D$;"CLOSE ";Z$ 

100 PRINT D$;"NOMON C,I,0" 
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0 REM MAKE RANDOM 
1 REM FOR USE WITH 'RANDOM' 

10 D$ = CHR$ (4) 

20 DIM N$(9),BL(9),BW(9),ST(9) 

30 FOR I = 1 TO 9 

40 READ N$(I),BL(I),BW(I),ST(I) 

45 NEXT I 

50 PRINT D$;"OPEN APPLE PROMS,L40" 

55 PRINT D$;"DELETE APPLE PROMS" 

65 PRINT D$;"OPEN APPLE PROMS,L40” 

70 FOR I » 1 TO 9: PRINT D$;"WRITE APPLE PROMS,R";I 
80 PRINT N$(I): PRINT BL(I): PRINT BW(I): PRINT ST(I) 

90 NEXT I 

100 PRINT D$;"CLOSE APPLE PROMS" 

110 PRINT : PRINT "FILE 'APPLE PROMS’ MADE": END 

1000 DATA PARALLEL PRINT,256,8,500,COMMUNICATIONS,256,8,1250,(NOT AVAILA 
BLE),256,8,0,(NOT AVAILABLE),256,8,0,DISK BOOT,256,8,432 
1010 DATA STATE MACHINE,256,8,460,SERIAL PRINTER1,256,8,878,SERIAL PRINT 
ER2,512,8,741,CENTRONICS,256,8,1290 

] 
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0 REM RANDOM 
5 D$ = CHR$ (4) 

10 PRINT D$;"NOMON C,I,0" 

15 TEXT : HOME 

20 LET OP$ = D$ + "OPEN ” 

30 LET CL$ = D$ + "CLOSE " 

40 LET RD$ = D$ + "READ " 

50 LET WR$ = D$ + "WRITE " 

60 LET FL$ = "APPLE PROMS" 

70 PRINT OP$;FL$;",L40” 

80 GOSUB 390 

90 ON Q GOTO 100,180,480 

100 GOSUB 330 

110 FOR R = Rl TO R2 

120 PRINT RD$;FL$;’*,R";R 

130 INPUT N$,BL,BW,ST 

140 PRINT " ”;R; TAB( 8);N$; TAB( 24);BL; TAB( 32);ST 

150 NEXT R 
160 PRINT D$ 

170 GOTO 310 
180 GOSUB 330 

190 LET T « 7: FOR R = Rl TO R2:T - T + 1 

200 PRINT RD$;FL$;",R";R: INPUT N$,BL,BW,ST: PRINT D$ 

210 VTAB (T): PRINT " ";R; TAB( 8);N$;: HTAB (7): INPUT Q$ 

220 IF LEN (Q$) > 15 THEN 200 
230 IF LEN (Q$) < > 0 THEN N$ = Q$ 

250 VTAB (T): HTAB (24): PRINT BL;: HTAB (23): INPUT Q$: IF LEN (Q$) 
> 0 THEN BL = VAL (Q$) 

270 VTAB (T): HTAB (32): PRINT ST;: HTAB (31): INPUT Q$: IF LEN (Q$) 
0 THEN ST = VAL (Q$) 

280 VTAB (T): PRINT " ";R; TAB( 8);N$; TAB( 24);BL; TAB( 32);ST;" " 

290 PRINT WR$;FL$;",R";R: PRINT N$;",";BL;",";BW;",";ST 
300 PRINT D$: NEXT R 

310 VTAB (23): PRINT "PRESS THE RETURN KEY TO CONTINUE.";: GET Q$ 

320 GOTO 80 

330 PRINT : INPUT "PART NUMBER 1-9 (0-ALL) ”;Q$ 

340 PRINT Q$:Q = VAL (Q$): IF (Q < 1 OR Q > 9) AND Q$ < > "0" THEN 
CHR$ (7);; GOTO 330 

350 LET Rl = Q:R2 = Q: IF Q = 0 THEN Rl = 1:R2 = 9 
360 HOME : VTAB (5) 

370 PRINT "PART// NAME SIZE IN STOCK- - 


380 RETURN 

390 HOME : PRINT TAB( 12);FL$: VTAB (10) 

400 PRINT "COMMAND","NUMBER" 

410 PRINT "-","-” 

420 PRINT "LIST”," 1" 

430 PRINT "CHANGE"," 2" 

440 PRINT "EXIT"," 3" 

450 PRINT : INPUT "CHOOSE NUMBER (1 - 3) ";Q$:Q = VAL (Q$) 

460 IF Q > 0 AND Q < 4 THEN RETURN 

470 VTAB (15): PRINT CHR? (7);: GOTO 450 

480 PRINT CL$;FL$ 

490 HOME : END 

500 REM DEMONSTRATION OF RANDOM ACCESS 


< 

> 


PRINT 
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0 REM EXEC DEMO 

100 Q$ = CHR$ (34): REM 34 IS THE ASCII CODE FOR A QUOTATION MARK 
110 TEXT : HOME : VTAB 2: HTAB 12 

120 INVERSE : PRINT "« EXEC DEMO »": NORMAL : PRINT 
130 PRINT "THIS PROGRAM CREATES A SEQUENTIAL TEXT” 

140 PRINT "FILE NAMED "Q$"DO'ER"Q$” CONTAINING SEVERAL” 

150 PRINT "STRINGS, EACH A LEGAL APPLE II COMMAND." 

160 PRINT "WHEN YOU TYPE" 

170 PRINT : PRINT "EXEC DO'ER" 

180 PRINT : PRINT "THEN THE COMMANDS IN FILE DO'ER TAKE" 

190 PRINT "CONTROL OF YOUR COMPUTER. EACH COMMAND" 

200 PRINT "WILL BE EXECUTED JUST AS IF IT HAD BEEN" 

210 PRINT "TYPED AT THE KEYBOARD. THE DOS MANUAL" 

220 PRINT "DESCRIBES THE PROGRAM IN MORE DETAIL." 

230 PRINT : HTAB 10 

240 INVERSE : PRINT "« HAPPY EXECUTING »": NORMAL : PRINT 
250 PRINT "PRESS THE SPACE BAR TO MAKE THIS" 

260 PRINT "PROGRAM CREATE THE FILE DO'ER.” 

270 PRINT 

280 PRINT "IF YOU WISH TO STOP THIS PROGRAM NOW," 

285 PRINT "YOU MAY PRESS THE ESC KEY." 

288 REM END INSTRUCTIONS AND WAIT FOR KEY TO BE PRESSED. 


290 GET A$: IF A$ = CHR$ (27) THEN END : REM ESC KEY PRESSED 
300 IF A$ = CHR$ (32) THEN 320: REM SPACE BAR PRESSED 
310 PRINT CHR$ (7);: GOTO 290: REM BEEP AND TRY AGAIN 


320 

330 

340 

350 

360 

370 

380 

385 

390 

395 

400 

410 

415 

420 

425 

430 

435 

440 

450 

460 

470 

480 

490 

495 

500 

505 

510 

520 


HOME : PRINT : REM PROGRAM STARTS HERE 
D$ = CHR$ (4): REM CTRL-D 
PRINT D$”MON C,I,0'' 

PRINT D$”OPEN DO'ER” 

PRINT D$"WRITE DO'ER" 

PRINT "FP” 

PRINT "MON C,I,0" 

PRINT "REM HERE IS A PROGRAM" 

PRINT 

PRINT "100 TEXT:HOME:VTAB 5" 

PRINT "110 PRINT"Q$"HERE'S A NEW PR0GRAM"Q$ 
PRINT "120 END" 

PRINT 

PRINT "SAVE NEW PROGRAM!!” 

PRINT 

PRINT "LIST : REM NEW PROGRAM!!" 

PRINT "REM PAUSE TO LOOK AT LISTING" 

PRINT "FOR X=1 TO 8000: NEXT X" 

PRINT "INT" 

PRINT "MON C,I,0" 

PRINT "LOAD COLOR DEMO" 

PRINT "LIST" 

PRINT "FP" 

PRINT "PRINT"Q$"PAUSE TO LOOK AT LISTING"Q$ 
PRINT "FOR X=1 TO 4000:NEXT X" 

PRINT "MON C,I,0" 

PRINT "CALL -155 : REM JUMPS TO MONITOR” 

PRINT "800.820 I 821.840" 
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530 

535 

540 

545 

550 

560 

565 

570 

575 

580 

585 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 


PRINT "FP" 

PRINT "PRINT"Q$"PAUSE TO LOOK AT MONITOR LISTING"Q$ 
PRINT "FOR X=1 TO 4000:NEXT X" 

PRINT "MON C,I,0" 

PRINT "CATALOG" 

PRINT "RUN NEW PROGRAM M" 

PRINT 

PRINT "115 PRINT"Q$"WE CAN EVEN CHANGE IT"Q$ 

PRINT 

PRINT "LIST : REM EVEN MORE RECENT PROGRAM!!" 

PRINT "REM PAUSE TO LOOK AT NEW LISTING" 

PRINT "FOR X=*l TO 8000: NEXT X" 

PRINT "SAVE EVEN MORE RECENT PROGRAM!!" 

PRINT "DELETE NEW PROGRAM!!" 

PRINT "CATALOG" 

PRINT D$"CLOSE DO'ER" 

PRINT : PRINT : INVERSE : PRINT "IT'S DONE!!!": NORMAL 
PRINT 

PRINT "YOUR APPLE'S READY TO DO'ER IT'S THING!" 

PRINT "ALL YOU HAVE TO DO IS TYPE" 

PRINT "EXEC DO'ER" 

PRINT "PRESS THE RETURN KEY, AND SIT BACK." 
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